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rEUECOnnUTIER 


INTEGRATED WORD PROCESSING 
AND COMMUNICATIONS SOFTWARE 

For the Tandy 1000, 1200 and 2000, and IBM-PC/XT/AT and compatible 
computers. Uses all the Model 100/Tandy 200 TEXT and TELCOM 
commands. 

WHY BUY JUST FILE TRANSFER? 

TURN YOUR DESKTOP COMPUTER INTO 
A ‘SUPER MODEL 100/TANDY 200’! 


For $200 you can put all this on your desktop computer: 

• Full function Word Processor based on and compatible with 
Model 100/Tandy 200 TEXT Editor. 

• Super Power Communications based on and compatible with 
Model 100/Tandy 200 TELCOM. 

• Fast File Transfer between Model 100/Tandy 200 and desktop 
at 9600 baud. Fully prompted at every step so you’ll never get 
lost. And we supply the cable at no extra cost! 

• Host Mode for remote control of desktop computer from Model 
100, Tandy 200, dumb terminal, or any computer with Telcom 
capability. 

You don’t have to put extra code on your Model 1 00 or Tandy 200 to transfer 
files — no cassettes, no ROM cartridges. Telecommuter will exchange files 
with any computer that has an RS-232 port and communications software, 
even another desktop computer. 

Optional advanced features include XMODEM protocol file transfer, full 
VT 1 00 terminal emulation, Telcom scripts and macros for automatic dialup 
and file transfer, DOS access from editor, and multiple access level Host 
Mode. TC-Corporate allows individual user assignments, such as pass- 
word, access level and time limit; keeps activity log. 

Telecommuter is a new and significantly easier way to use your portable and 
desktop computers together. Call or write today for more information on our 
entire line of fine software products. 

We accept MasterCard and VISA for mail or telephone orders, and we ship 
free in the USA. Upgrade any time for price difference. 

TC-standard or TC-XMODEM $200, TC-DeLuxe $300, TC-plus $400, and 
TC-Corporate $1000. 

Look for Telecommuter at your local Radio Shack Computer Store! 


Road, Weston, MA 02193 (61 7) 647 
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From Computer Plus to YOU . . . 

PLUS after PLUS after PLUS 


TRS-80 is a registered trademark of Tandy Corp. 


Tandy 200 24K $739 
ModeMOO 24K $510 


Tandy 1200 HD $1599 
10 Meg. 256K 


Tandy 1000 $710 
Tandy 1000 HD $1539 


Smith Corona L-1000 
$259 


Color Computer II 
W/64K Ext. Basic $179 


DMP105 $160 


BIG SAVINGS ON A FULL COMPLEMENT OF RADIO SHACK COMPUTER PRODUCTS 


COMPUTERS 

Tandy 1000 1 Drive 128K 710.00 

Tandy 1000 HD 10 Meg. 256K 1539.00 

Tandy 1200 10 Meg. 256K 1599.00 

Tandy 2000 2 Drive 256K 1295.00 

Tandy 2000 10 Meg. 256K 2025.00 

Model IVD 64K with Deskmate 889.00 
PRINTERS 

Radio Shack DMP-130 269.00 

Radio Shack DMP-430 660.00 

Radio Shack DWP-220 Daisy Wheel469.00 
Radio Shack TRP-10G Portable 229.00 
Silver Reed EXP-550 Daisy Wheel 425.00 
Star SG-10 245.00 

Star SG-15 410.00 

Star SD-10 365.00 

Panasonic P-1091 259.00 

Toshiba 351 1175.00 

CITOH Prowrlter 851 0AP + NLQ 345.00 
Okidata 192 375.00 

Epson LX-80 245.00 

Epson FX-185 369.00 

Epson HS-80 Portable Ink Jet 339.00 


Tandy 1000/1200 ACCESSORIES 

Tandy 1000 Disk Drive Kit 159.00 

Tandy 1000 10 Meg. Hard Drive 579.00 
Hard Drive Controller Board 249.00 
256K Ram Board (Inc. 128K & DMAJ199.00 
512K Ram Board (includes 128K) 169.00 
256K Memory Plus Expansion Brd.249.00 
PBJ Multi-Function Board (128K) 269.00 
PBJ Multi-Function Board (256K) 299.00 
PBJ Multi-Function Board (512K) 349.00 
128K Ram Upgrade Kit (NEC) 78.00 
256K Ram Upgrade (for PBJ Board)69.00 
300 Baud Modem Board 129.00 

1200 Baud Modem Board 249.00 

RS-232 Serial Board 89.00 

Digi-Mouse/Clock Board 89.00 

Tandy 1000/1200 MONITORS 
Tandy VM-2 Green Monitor 129.00 
Tandy CM-2 RGB Color Monitor 379.00 
Tandy VM-3 TTL Green Monitor 179.00 
Tatung CM-1360 Color/Gr./Amber459.00 
Tandy 1200 Text Monitor Adapt. 179.00 
Tandy 1200 Coior/Graphics Adapt240.00 


MODEMS 

Radio Shack DCM-3 Modem 52.00 
Radio Shack DCM-5 Modem 99.00 
Radio Shack DC Modem 2212 315.00 

Hayes Smartmodem II 300 Baud 169.0G 
Hayes Smartmodem 1200 Baud 429.00 
Novation J-Cat 300 Baud 115.00 

FOR EVERYONE 

Network Four Outlet Surge Prot. 69.95 
CCR-81 Cassette Recorder 52.00 
CCR-82 Cassette Recorder 43.00 
020 Digital Cassette Tapes (lOpk) 9.95 
Verbatim SSDD Plastic Box (lOpk) 24.95 
Verbatim DDDD Plastic Box (lOpk) 29.95 
Generic SSDD Diskettes (lOpk) 17.95 
NEC 64K Ram Chips (set of 8) 39.00 

Radio Shack 16K Ram Chips (8) 25.00 

Locking Disk Box (holds 70) 19.95 

Flip N File Disk 50 15.00 

Fanfold CleanEdge Paper (2600) 35.00 

Radio Shack software 10% off. 

Send for complete listing of 
brand name software and hardware. 


CALL TOLL FREE 
1 - 800 - 343-8124 

• LOWEST POSSIBLE PRICES 

• BEST POSSIBLE WARRANTY 

• KNOWLEDGEABLE SALES STAFF 

• TIMELY DELIVERY 

• SHOPPING CONVENIENCE 


com 


P.O. Box 1094 
480 King Street 
Littleton, MA 01460 


SINCE 1973 


IN MASSACHUSETTS CALL (617) 486-3193 
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landy computers 

offer everything 
...almost 


Check out the software that completes their systems 

— fileProP 


Tandy MS-DOS Software Comparison Chart 


GENERAL 

CHARACTERISTICS: 


Menu driven 


Allows user to create integrated 
business systems 


Developed systems and data can be 
moved to multi-user environments 


Professional support available 
from the software’s authors 


PRICE 


CAPACITIES: 


Fields per record 


Characters per record 


Records per file 


Indexes per file 


Number of digits per numeric field 


Number of files usable concurrently 


Files span multiple drives 


FEATURES: 


Full-screen facility for creating 
custom screen layouts 


Full-screen facility for creating 
custom report layouts 


Built-in field types 
(error checking) 


User-defined field types 


Conditional math 


User-defined menus 


Change file layout without 
losing existing data 


Data protection 


Password security 


pfs® 

FileReport 


yes 


no 


no 


no 


$265 


100 


1679 


1300 


20 


no 


yes 


no 


no 


no 


no 


no 


possible 


no 


no 


dBase' 

II 


no 


programmer 

required 


no 


no 


$595 


32 


1000 


65535 


10 


no 


no 


no 


programmer 

required 


programmer 

required 


programmer 

required 


possible 


programmer 

required 


programmer 

required 


filePro 16 

Smaliware 


YES 


YES 


W 


YES 


YES y 


$495 


999 


E 


4608 


I 


16,000,000 


J2 ^ 


24 


10 




up to 8 


YES 


YES 


12 


200 


YES 


YES 


automatic 


YES 


YES 



The new Tandy computers 
can really speed things up. If 
you don’t let obsolete 
software bog you down. 

Try filePro 16, the latest 
generation of data base 
software from the authors of 
Profile®. 

Choose it for its power 
(check our capacities); its 
ease-of-use (check our 
features); and its unique 
ability to grow as your needs 
grow, and even move the 
systems you create to multi- 
user computers. 
filePro is available for the 
Tandy 1000, 1200 and 2000 
computers (hard disk 
required). Available directly 
from us or through your 
Radio Shack store’s Express 
Order Software service. 

To order, call 
(800) 847-4740. 

For customer service or 
when dialing in New York 
State, call (212) 398-9290. 
Ask for Smaliware sales. 
Visa and MasterCard 
accepted. 

Also available for other computers, 
including IBM PC, IBM PC-XT, and 
NCR Decision Mate. 


The Smal Computer Company, Inc. 

.240 230 West 41st Street, Suite 1200, New York, New York 10036 

Smaliware and filePro are registered trademarks of The Small Computer Company, Inc. dBase II is a trademark of Ashton-Tate. pfs File/Report 
is a registered trademark of Software Publishing. Profile is a registered trademark of Tandy Corporation. 




Lprint 


An Oracular Spectacular: 



Tune in our 
New Delphi SIG 


O ne of the things we’ve been 
wanting to be involved with for 
a long number of years has 
finally come to pass. We’re very happy 
about it and I think you will be, too, 
because it means an expanded capabil- 
ity for you and your computer. 

Here at PCM, we figure that we are in 
the communications business. That is, 
we believe our primary goal is to com- 
municate things to others; while, at the 
same time, allow others to share infor- 
mation with one another. 

I happen to think we do all this pretty 
well (and the mail I get from many of 
you seems to indicate agreement) but 
there has always been a wish that we 
could do it better. Now, I think we have 
a way. 

By the time you read this, we will be 
heavily involved in supplying informa- 
tion to you through a telecommunica- 
tions capability. We have selected the 
Delphi network for a number of reasons 
I will not go into here, but suffice it to 
say that now you can call up Delphi and 
join our MS-DOS Special Interest 
Group (or SIG). 

There is no initial cost — either for 
the first hour on Delphi, for joining 
Delphi, or for joining the MS-DOS SIG 
— if you’re a PCM subscriber. If you are 
not, then you can subscribe and get the 
same benefits. There is detailed infor- 


mation elsewhere in this issue. 

Delphi connect time is inexpensive 
after your first free hour. Just $6 an 
hour, even at 1200 Baud. But best of all, 
it offers a two-way communications 
medium for you and for us. You’ll be 
able to leave your questions on the 
forum and get answers; you’ll be able to 
communicate in real time with many of 
our columnists through the conference; 
you’ll be able to participate in polls (and 
create your own); and, you’ll be able to 
download programs which appear in 
PCM for a small fee as well as have the 
ability to access a host of free programs 
from other users of the service. 

Leave us a “letter to the editor” on 
Delphi. And, if it has a question, we’ll 
try to answer. Or, maybe some other 
member of the SIG will. We’ll still print 
those we think have wide appeal. But 
your answers should come faster. 

“Talk” directly to Bill Barden, Danny 
Humphress or a host of other people 
involved with PCM! We’ll post confer- 
ence schedules on the SIG, but we’ll also 
print preliminary schedules in the mag- 
azine itself. 

Truly, I think Delphi opens a whole 
new world to us. And, for the first time, 
will give you an alternate way to obtain 
program listings from our pages quickly 
and easily — without having to type 
them in. Yes, we’re still planning on a 


disk service at some time in the future, 
too. 

But Delphi isn’t the only new out- 
reach program we’ll offer. In coopera- 
tion with CompuServe, you can now get 
listings from PCM through their SOF- 
TEX service. As at Delphi, there is a 
small cost here, too. 

We’re excited about the new things 
we will be doing because we see our 
association with Delphi and with Com- 
puServe as an extension of PCM. We 
especially hope you’ll take advantage of 
(at least) the free hour of connect time 
on Delphi and “meet us” in person. 

Everyone here at PCM looks forward 
to hearing from you and sharing infor- 
mation with you. Tune in and say 
“hello!” 

I can’t resist mentioning that a num- 
ber of months ago I reported here that 
Tandy’s super DeskMate program 
would be available for other machines 
in its line, too. DeskMate has been 
announced for the 2000, as well as the 
Color Computer and the Model IV. Our 
new monthly DeskMate column called 
“The Integrated Desk,” starting with 
this issue, will help you make the most 
of this program. 

Now, watch for us to provide you 
with more excitement in the months to 
come. 

-- Lonnie Falk 
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YOU CHOOSE: 


Terminal Emulation Mode 

MLINK 

Crosstalk XVI 

Smartcom II 
Yes 

Menu-driven Interface 

Yes 

Yes 

Expert/brief Command Mode 

Yes 

Yes 

Yes 

Extensive Help Facility 

Yes 

Yes 

Directory-based Autodialing 

Yes 

Yes 

Yes 

Automatic Logon 

Yes 

Programmable Function Keys 

Yes 

Yes 


Multiple Modem Support 

Yes 

Yes 


File Transfer Mode 

Error Checking Protocol 

Yes 

Yes 

Yes 

Wildcard File Transfers 

Yes 

Yes 

Yes 

File Transfer Lists 

Yes 


Yes 

XMODEM Protocol Support 

Yes 

Yes 

Mainframe Versions Available 

Yes 



Command Language 

Conditional Instructions 

Yes 

Yes 


User Variables 

Yes 



Labels 

Yes 

Yes 


Fast Interpreted Object Code 

Yes 

Yes 


Program Run 

Yes 


Subroutines 

Yes 



Arithmetic and String Instructions 

Yes 



Debugger 

Yes 



Miscellaneous 

Remote Access 

Yes 

Yes 

Yes 

Electronic Mail 

Yes 



Unattended Scheduling 

Yes 

Yes 


Expandable Interface 

Yes 



CP/M Versions Available 

Yes 




MLINK 

The choice is easy. Our MLINK Data Communications System is the most powerful and 
flexible telecommunications software you can buy for your personal computer. And 
it's easy to use. MLINK comes complete with all of the features listed above, a clear and 
comprehensive 275-page manual, and 21 applications scripts which show you how 
our unique script language satisfies the most demanding requirements. 


Choose the best. Choose MLINK. 



Corporate Microsystems, Inc. 
P.O. Box 277 
Etna, NH 03750 
(603) 448-5193 


Please send me the following version(s) of MLINK: 

Tandy Model 1000/1200 (MS-DOS) 

Tandy Model 2000 (MS-DOS) 

Tandy Model 4 or 4P (CP/M Plus only) 

IBM® PC or compatible (PC-DOS) 

Send me more information 

Other versions are also available. 

Please call for current version information. 


Introductory offer - we pay shipping! 

Include $250.00 for each copy of MLINK. 

Outside North America add $15.00 (U.S.) 

Check enclosed MasterCard Visa 

COD (Registered checks or money orders only) 

Card # Exp. 

Signature 

Ship to: 

Name ... 

Address — 

City/ State/ Zip 


MLINK is a trademark of Corporate Microsystems, Inc. Crosstalk XVI is a trademark ol Microstub Smartcom II is a trademark of Hayes Microcomputer Products. IBM is a 
registered trademark of IBM Corp. PC-DOS is a trademark of IBM Corp. MS-DOS is a trademark of Microsoft Corp. CP/M is a registered trademark of Digital Research. 




Letters to PCM 


REDEFINING KEYS 

Editor: 

I have enjoyed all of Danny Humph- 
ress’ articles on MS-DOS. He writes so 
that I not only understand, but I also 
enjoy reading them. His latest DOSsier, 
“Exploring ANSI. SYS” (September 
1985, Page 72), was of particular interest 
to me. Ever since I bought my Tandy 2000 
I have wanted to redefine my keyboard for 
one-handed operation in the arrangement 
developed by Commander August 
Dvorak, USNR. I have an electric type- 
writer with that arrangement and it has 
me completely spoiled. 

I used Mr. Humphress’ procedure and 
have written the program as an RUTO 
EXEC.BRT file so the keyboard is rede- 
fined on start-up. It does a fine job, except 
it is only effective while in MS-DOS. 
When I run my word processor (My 
Word), the keyboard reverts back to the 
old arrangement. When I again return to 
the system, the keyboard returns to the 
redefined state. Is there any way to retain 
the redefined keyboard when running this 
program? 

James W. Young 
Aberdeen, WA 

Editor’s Note: Unfortunately, the 
redefined keyboard only works 
while in MS-DOS command mode 
or in a program that uses ANSI’s 
keyboard driver. There are a 
number of commercially available 
programs, however, that will allow 
you to redefine keys. Borland Inter- 
national’s Pro Key is the one I use 
most often. 


DESPERATELY SEEKING 
SCREEN DUMP 

Editor: 

I read PCM every month and I am very 
glad to see it growing. I started with a 
Tandy Color Computer and purchased 
my Tandy 1000 the first week it was 
available. 

I am interested in finding a graphics 
screen dump program for the Tandy 1000 
that will print graphics on a Prowriter 
8510A. There must be one out there 
somewhere. I have looked through pcm 
and IBM magazines and have not found 
one yet. Could one of the readers suggest 
a source for a program like this (commer- 
cial or public domain)? Send response to 
4730 Robert Frost Way, 95842. 

I have purchased many books for IBM 
basic and PC-DOS since there are not 
many Radio Shack or third party books 


available for the Tandy 1000 yet. All of 
the books or products have been very 
useful. The Tandy 1000 emulates the IBM 
PC and PCjr so well it’s like having two 
computers in one. Most of the informa- 
tion in these books applies directly to the 
Tandy 1000, so don’t worry if it says IBM. 
Anyone who has a Color Computer and 
a Tandy 1000 should consider buying the 
program CoCo-Util from Mark Data 
products. This program is an excellent 
package that allows file transfer between 
these two fine computers. 

i Steve Batson 
Sacramento, CA 


TANDY/IBM DIFFERENCES 

Editor: 

My first subscription issue of PCM 
arrived [August 1985].. Now I don’t have 
to hunt the magazine racks every month 
looking for the latest issue. I like PCM very 
much and find something of value in every 
issue. 

I have some questions — and these may 
be of interest to other Tandy 1000 owners. 

• I have included a printout of the direc- 
tories of both the Tandy 1000, MS-DOS 
2.1 1 disk and the IBM PC-DOS 2.10. The 
sizes of the various files are quite different 
and, in most cases, the ones on the Tandy 
1000 disk are larger. The most extreme 
example is MODE.COM (32,9 10K on the 
Tandy; 3,139K on PC-DOS). Why the 
size discrepancy? To my knowledge, there 
is no difference in EDL I N . COM between the 
two systems, so why the size difference? 

This raises another question: Can I mix 
and match these files? That is, suppose I 
use M0DE.COM from PC-DOS instead of 
the Tandy 1000 version, what would 
happen? 

• The salespeople at my local Radio 
Shack Computer Center say the internal 
hard drive for the 1000 cannot be retro- 
fitted to my 1000. Instead, they say I will 
have to use the external hard drive. OK, 
but this weekend, I helped a friend install 
the Quibie 20-megabyte drive in her 
Corona. It comes with a short disk con- 
troller card that fits in the 1000. And, it 
costs only $599! 

No one can tell me if the power supply 
in the 1000 will stand up to the demands 
of a hard drive. The article in the August 
issue on networks mentioned you have 
1000s with hard drives. What are your 
feelings on the adequacy of the 1000’s 
power supply? 

I have installed a PBJ 512K board and 
would like to install the Quibie 20- 
megabyte drive. Would that put too big 
a load on the power supply? 

• In the “MS-DOSsier” column, you 
mention a device driver, available through 


the Tandy Express Order Software, that 
sets up a RAM disk. The people at the 
local Radio Shack Computer Center have 
no idea what that might be. Could you 
help us out and give us the name? 

Robert P. Johnson 
Seattle, WA 

Editor’s Note: Unlike most of the 
external MS-DOS commands, 
MODE is usually supplied by the 
hardware vendor. The versions of 
MODE for IBM and Tandy have 
different features and were devel- 
oped separately. I have used IBM’s 
MODE on a Tandy 1000 with no 
problems, however. 

As far as I can determine, the 
power supply in the Tandy 1000 HD 
is of the same wattage as the one in 
the non-hard disk 1000. If you are 
considering installing a third-party 
drive, I would suggest purchasing it 
from a vendor that specifically 
supports the Tandy 1000. 

The RAM disk emulation soft- 
ware driver mentioned in the Sep- 
tember 1985 “MS-DOSsier” is 
called RAMDisk-MS, Radio 
Shack Express Order No. 90-0146, 
29.95. 


OOPS! 

Editor: 

There is an error in the listing of my 
program in the September 1985 issue of 
PCM. On Line 120 of Page 30, the last 
command should be FI =3. I would be 
happy to respond to inquiries that are 
accompanied by a self-addressed, 
stamped envelope. My address is 1000 N. 
Oak Avenue, 54449. 

John W. Melski, M.D. 
Marshfield, WI 


MOVIN’ ON UP 

Editor: 

I started with a Tandy Color Computer 
and think the upgrade to the Tandy 1000 
and PCM was worth the investment. Keep 
up the good work. It is greatly appre- 
ciated. 

Bill Barden’s article “The Sounds of 
Science” (September 1985, Page 11), was 
most amusing. 

I would like to see a review of Co Co- 
Util from Mark Data Products. I have a 
need to transfer files from a Color Com- 
puter to a Tandy 1000, and would like an 
unbiased opinion before I purchase it. 

Roy W. Osborne II 
Council Bluffs, IA 
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STARTING AT $299.95! 

5 to 60 megabytes complete easy to install internal and external systems 
— will boot just like an XT — fully warranteed — 
same day shipping from stock — fast service — free technical assistance 


$499.95 to $999.95 

STREAMING OR FLOPPY TAPE BACK UP SYSTEMS 

complete internal and external systems 

$1,995.00 — IBM XT WORKALIKE SPECIAL 

20 megabytes — one floppy — 640K — clock calendar — serial port — parallel port 
monochrome card — monochrome monitor with tilt and swivel base 
Keytronics 5151 style keyboard — one year warranty — shipped from stock 



IBM ENHANCEMENT CARDS 


Multifunction with 384K $259.95 

Serial port, parallel port 
Clock calendar, game port 

Serial port — two port 69.95 

Monochrome only 119.95 

Monochrome graphics w/parallel port 159.95 


Network card 


Color graphics $139.95 

Monochrome/RGB Color 229.95 

Disk controller with cable — up to 4 drives 79.95 

384K memory 129.95 

Hard drive controller 159.95 

Keytronics 5151 style keyboard 129.95 

249.95 


DEALER INQUIRIES INVITED PRICES CHANGE EVERY DAY 
CALL 1-617-872-9090 CALL 1-800-343-8841 

pc ® 5 SOFTWARE SUPPORT, INC 

1 Edgell Road, Framingham, MA 01701 (617) 872-9090 Telex-383425 

Hours: Mon. thru Fri. 9:30 am to 5:30 pm (E.S.T.) Sat. 10 am to 3:30 pm 
SERVICE POLICY — Our Professional Technical Staff Is Available To Assist You Monday Through Saturday. 
WARRANTIES — Up To One Full Year Parts And Labor. Floppy Disk Drive Power Supplies — Five (5) Years. 
SERVICE — 24 Hour Turn -A- Round On All In-Stock Parts. Dealer Inquiries Invited. Call 617-872-9090 

Please Call For Shipping, Toll Free 1-800-343-8841 

Prices and Specifications Ma> Change 

Handling And Insurance. Please Call For Our Latest Price Saving Specials. without Notice. 



WERE BRINGING THE TANDY 


PCM’s 

BROADENING ITS 
SPECTRUM 

pcm and the Delphi Information Util- 
ity have joined together to allow 
Tandy MS-DOS owners all over the 
world to connect with one another! 

Delphi is a full-service information 
utility. It offers everything from up- 
to-the-minute news stories from The 
Associated Press to electronic mail 
services. But, best of all, it now has 
a special forum for owners of MS- 
DOS computers, and it’s operated 
by the people who bring you pcm 
each month. 

The MS-DOS Special Interest Group 
(SIG) features a variety of services, 
including an open forum where you 
can send and receive messages 
from Tandy owners all over the 
world. It also has databases for ex- 
changing programs, where you can 
upload your favorites and download 
programs written by other Tandy 
MS-DOS enthusiasts. 


THE WORLD 
OF MS-DOS 

The MS-DOS SIG’s conference fea- 
ture allows you to meet electroni- 
cally with other members of the 
Tandy Community. You can join 
conferences with many notables in 
the world of MS-DOS on a regular 
basis. Conference schedules will ap- 
pear in pcm each month. Be sure to 
check online announcements for 
changes and additions. 

PCM 

ONLINE 

On Delphi, You can renew your pcm 
subscription, make a fast and easy 
order for software or hardware from 
a multitude of vendors, or inquire 
about products on the MS-DOS 
SIG. 

We also have a number of programs 
that you can download and use, just 
for the cost of the time you spend 
transferring them. There’ll also be 
corrections for pcm articles, helpful 
hints and many other useful fea- 
tures. 


FREE LIFETIME 
MEMBERSHIP 

pcm is offering subscribers a free life- 
time subscription to Delphi — a 

$29.95 value — and a free hour of 
connect time — a $6 value at either 
300 or 1200 Baud during evening, 
holiday and weekend hours — so 
you can sample Delphi and the 
brand new pcm MS-DOS SIG. That's 
right. Your subscription to pcm en- 
titles you to this $35.95 value as a 
free bonus! 

If you’re not a pcm subscriber, just 
enter your order when you sign on 
with Delphi and you’ll get the same 
great deal! For our $28 subscription 
fee, you'll get the finest Tandy com- 
puter magazine ever, a free lifetime 
subscription to Delphi and a free 
hour of connect time. 


SAVE EVEN MORE 

Want to save an extra $15? While 
you’re online, you can order the Del- 
phi Handbook and Command Card 
($21.95) and three hours of connect 
time ($18) for only $24.95. 

Delphi provides us all with Imme- 
diate Tandy Community. Check it 
out today. After all, you can sample 
it for free! 


DELPHI 


TYPE: 

GROUP MSDOS 




TOGETHER! 


How to reach the MS-DOS SIG on Delphi . . . 


There are several ways to connect to Delphi and 
PC M’s MS-DOS SIG. In most cities you will not even 
have to pay long distance charges; you can use special 
data communications networks, like Uninet, Tymnet 
and the Canadian Datapac network. 

First, set your terminal program to operate at either 
300 or 1200 Baud (depending on the modem you have), 
and also select either 7 bits with even parity or 8 bits 
with no parity, and 1 stop bit. (If one combination 
doesn’t work, try another.) 

Decide which network you should use (there is no 
surcharge for any of them, unless you have to make a 
long-distance call) and follow the instructions below: 

On Uninet: Call (800) 821-5340 to get the Uninet 
number for your area. After you call the appropriate 
number for your own area and make connection, press 
ENTER, the period key (.) and ENTER again. At the 
“service:” prompt, type GVC (for General Videotex 
Corporation) and ENTER. 

On Tymnet: Call (800) 336-0149 to get the Tymnet 
number for your area. After you dial your designated 
number and make connection, simply press ‘A’ no 
matter what appears on the screen. When “please log 
in:” appears, type DELPHI and press ENTER. 

From Canada (on Datapac): Call Delphi Customer 
Service at (617) 491-3393 to get the Datapac number 
for your area. After you connect, press the period key 
(.) and ENTER (use two periods if you’re using 1200 
Baud). Type SET 2:1, 3:126 and press ENTER. Now 
type p 1 3106, DELPHI ; and press ENTER. 

From other countries: Many countries have their 
own data networks that can connect to either Uninet 
or Tymnet. Check with the telephone authorities in 
your country for details on how to sign up for this 
service. When you have an account set up, you can 
reach Delphi with a “host code” of 312561703088 
through Uninet, or 310600601500 through Tymnet. 
(You’ll have to pay the toll charges for this connection.) 

Type in Your User Name 

If you’re already a subscriber to PCM, at the “USER- 
NAME: ’’prompt, type PCMSUB and press ENTER. At the 
“PASSWORD:” prompt, type your individual sub- 
scription number from the mailing label of your latest 


issue of PCM. (If there are one or more zeros at the 
beginning of this number, include them.) 

If you don’t already have a subscription, at the 

“USERNAME:” prompt, type PCMORDER and press 
ENTER. At the “PASSWORD:” prompt, type SENDSUB 
and press ENTER. Have your MasterCard, VISA or 
American Express card ready, because you’ll be led 
through a series of questions that will enable us to put 
your PCM and Delphi subscriptions into effect. In an 
effort to hold down non-editorial costs, we do not bill 
for subscriptions. 

If you make a typing error, just press ENTER and start 
over. Remember that at any point, when you’re on 
Delphi, you can type HELP to get help on how to use 
the system. To get off the system just type BVE. 

If you find that you’re unable to log onto Delphi and 
enter the MS-DOS SIG after following these instruc- 
tions, call us during afternoon business hours at (502) 
228-4492. We’ll be glad to offer assistance. 

Come Visit Us! Type: GROUP MSDOS 

After you sign in, you’ll be prompted to set up your 
own, personal “user name” — Delphi is a friendly 
service, no numbers to remember — and you’ll be asked 
a number of questions so Delphi can set up your 
account. You’ll also be assigned a temporary password. 
No time is assessed against your free hour of service 
while you answer these questions. 

Delphi will tell you that your account will be ready 
after 6 p.m. the same day if you sign up before noon 
(Eastern time zone.) If not, your account will be ready 
at 6 p.m. the next day. Once an account is opened, each 
PCM subscriber will be credited with an hour of free 
time! 

When you log back in, use your chosen user name 
and your temporary password to access the system. At 
that point, you will meet Max, who will help you 
configure things and will change your temporary 
password into your own personal password. This is the 
password you will use for subsequent sessions — or 
until you change it. Again, there is no charge for the 
time you spend configuring your account. Your hour 
of free time starts after Max bids you goodbye. 

You’ll wind up at the Delphi Main Menu; type in 
GROUP MSDOS and join us on the MS-DOS SIG! 
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Produce labels with ease with this handy 
BASIC program 


100/200 


The Fantastic Label Machine 

By Roger F. Krueger 


AG’R is a small program writ- 
ten in Model 100/200 BASIC 
that may come in handy for 
anyone who has a need to print multiple 
labels. The printer control codes are set 
for the Tandy DMP-200 printer but 
may be easily adjusted to accommodate 
other printers. 

At home, I use the program to print 
return labels and address labels for any 
bills or payments that occur on a regular 
basis. Rent, car payments, insurance 
premiums and water bills are some that 
seem to pop into our mailbox on a 
regular basis. I’m sure you can think of 
others. And since my handwriting 
seems to be a cross between that of a 
doctor’s and a preschooler’s I much 
prefer using peel-off labels for those 
important checks which my wife and I 
send through the mail. 

In addition to the options for printing 
standard sized labels in a “one-up” or 
“two-up” format, I have included a 
routine which I call “stencil” that can be 
used for larger labels (5/4" by 2 l5 /| f) ”) 
which are very handy for mailing large 
envelopes and packages. 

And now some comments about the 
program and how it works. TAG’R is 
an easy-to-use, menu driven program 
without many bells and whistles. When 
first run, the program presents a short 
two-part title screen followed by the 
main menu which offers five options: 
1) Enter Data, 2) Save to RAM, 
3) Load from RAM, 4) Select and 
5) Quit. To start, select Option 1, Enter 
Data, and you will be greeted by the 


(Roger F. Krueger works in the field of 
materials handling in Dansville, N.Y. 
He has a bachelor’s degree in English 
and is a self-taught BASIC programmer.) 


message: (Press ENTER when finished). 

At this point, it is simply necessary to 
enter the address one line at a time up 
to a maximum of five lines. After the 
fifth line, you will have the option of 
correcting the entry by entering it again 
or continuing to the next address by 
selecting Y or N. When you have finished 
entering the addresses you need (to a 
maximum of 20), pressing ENTER at the 
LINE 1. prompt will return you to the 
main menu. 

It is a good idea at this point to use 
Option 2 and save the data to RAM. If 
the addresses are likely to be needed in 
the future, it is an easy matter to save 
the text file which is created to tape 
using the standard procedures outlined 
in your owner’s manual. 

After you have saved your data, it is 
time to use Option 4 to choose your 
addresses, set your printing parameters 
and print your labels. 

Upon selecting, you will find a list of 
the first lines of entries one through five 
and a single line submenu indicating 
“Select, Continue and Return.” This 
menu operates by your keying in the 
first letter of the option you want to use. 
If you find the first line of the address 
you want listed on the screen, simply 
press S followed by the number preced- 
ing that line on the display. This will 
take you to a screen displaying the 
complete address as you entered it and 
the choice of going to the hard copy 
menu or returning to the selection 
screen. 

If you press H, the program drops 
down to another menu with the follow- 
ing options: 1) Change Font, 2) one- 
up Labels, 3) two-up Labels, and 
4) Return. If you simply want to print 
regular labels in the normal font, choose 
either Option 2 or 3 to correspond to the 


type of labels you are using and you will 
then see a prompt requesting the 
number of labels you wish printed. For 
two-up labels, enter an even number, 
and for one-up, any amount. Press 
ENTER and, if your printer is online and 
your labels properly aligned, just relax 
and wait a bit. You should have your 
labels in a short period of time. 

If you decide at the last menu that you 
wish to either print larger labels or you 
want a different print style, select 
Option 1, Change Font. This gives you 
the choices 1) Label or 2) Stencil. If 
you choose stencil, you simply have to 
answer the prompt requesting how 
many labels you want. If you choose 
label, you will be offered the following 
choices: 1) Normal, 2) Bold, 3) Con- 
densed, 4) Compressed and 5) Elon- 
gated. Selecting one of these returns you 
to the hard copy routine menu at which 
point you choose one-up or two-up 
labels. Then indicate how many you 
want and, once again, you should be in 
the label generating business. 

At this point I would like to go back 
and fill in a few details about how the 
selection routine works. Pressing C (for 
continue) will either drop to the next 
selection screen of five items or the 
Hardcopy / Return screen with the first 
address being displayed. Pressing R (for 
return) at this point will bring you back 
to the first selection screen, but pressing 
R in any of the selection screens will 
return you to the main menu. 

Essentially, that is how the program 
works. It shouldn’t take long to get the 
hang of it. I’d recommend running 
through the menus and getting the feel 
for how it works before powering up 
your printer, and then testing it with 
plain paper to see the hard copy results 
before using actual labels. 
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Although I primarily use this pro- 
gram at home, it may come in handy for 
anyone who works in a shipping depart- 
ment where multiple labels are fre- 
quently used. Perhaps, if you work at 
a plant where it is a common practice 


to ship five or more packages to the 
same address, it could save a shipping 
clerk a lot of extra typing. 

In any event, I have found that it is 
a definite cure for two well-known 
syndromes — writer’s cramp and 


“chicken scratches. ” Well, I think I’d 
best get back to work on that other 
program which is kicking around in the 
back of my head. In the meantime, I 
hope this one works for you, and happy 
Model 100/200 computing. □ 



The listing: 


30 GOSUB 50000 
50 ' TAG 1 R 

60 ' by Roger F. Krueger 

70 ' 62 ELIZABETH STREET 

80 ' DANSVILLE, NY 14437 

90 ' (716) 335-5611 

95 * 

97 ' AUGUST 18, 1985 

98 ' 

100 CLEAR 2000 

110 DIM A1$(20),A2$(20),A3$(20),A4$(20), 
A5$ (20) 

1000 CLS 

1020 PRINT@50, "### Label Menu ###" 

1030 SOUND 1800,10 

1040 PRINT@124 , "1 . Enter Data 2. Sav 
e to RAM" 

1060 PRINT@164, "3 . Load from RAM 4. Sel 
ect" 

1080 PRINT@204,"5. Quit" 

1090 PRINT@290, "Select [1-5]" 

1100 K$=INKEY$ : IF K$="" THEN 1100 
1110 IFVAL(K$)<1 OR VAL(K$)>8 THEN 1000 
1120 ON VAL(K$ ) GOSUB 2000,3000,5000,540 
0,9000 

1150 GOTO 1000 

1199 ' DATA ENTRY ROUTINE 

2000 CLS 

2005 Y— 1 

2010 PRINT" Press <Enter> when finish 
ed. " 

2050 LINEINPUT" Line 1: ";Al$(Y) 

2055 IF Al$ (Y)=" " THEN RETURN 
2060 LINEINPUT" Line 2: ";A2$(Y) 

2070 LINEINPUT" Line 3: ";A3$(Y) 

2080 LINEINPUT" Line 4: ";A4$(Y) 

2090 LINEINPUT" Line 5: ";A5$(Y) 

2092 LINEINPUT" Is entry correct (Y/N)?" 
;A$ 

2093 IF A$="N" OR A$="n" THEN 2010 ELSE 
2095 

2095 Y—Y+l 
2140 GOTO 2050 

2999 ' RAM SAVE ROUTINE 

3000 CLS 

3010 PRINT@207 , "Filename : " ; : LINEINPUT 

NN$ 


3030 OPEN NN$ FOR OUTPUT AS 1 
3040 FOR X=1 TO Y-l 

3050 PRINT#1 , Al$ (X) : PRINT#1 , A2$ (X) : PRINT 
#1 , A3$ (X) : PRINT#1 , A4$ (X) : PRINT#1 , A5$ (X) 
3060 NEXTX 
3070 CLOSE: RETURN 

4999 1 RAM LOAD ROUTINE 

5000 CLS 

5020 BEEP : PRINT@207 , "Filename : ” ; ; LINEI 

NPUT NN$ 

5040 OPEN NN$ FOR INPUT AS 1 
5045 Y-l 

5050 IF EOF ( 1 ) GOTO 5200 
5060 LINEINPUT#1 , Al$ (Y) 

5070 LINEINPUT#1,A2$(Y) 

5080 LINEINPUT#1,A3$(Y) 

5090 LINEINPUT#1 , A4$ ( Y) 

5100 LINEINPUT#1 , A5$ (Y) 

5120 Y-Y+l 
5130 GOTO 5050 
5200 CLOSE 

5399 ’ SELECTION ROUTINE 

5400 CLS: FOR X=1 TO Y-l STEP 5 
5405 FOR K= X TO X+4 

5410 PRINTK; :PRINTA1$(K) 

5420 NEXT K 

5440 PRINT0240 , "Select Continue Retu 
rn: " 

5442 K$=INKEY$ : IF K$="" THEN 5442 

5450 IF K$="S" OR K$="s" THEN 5470 

5460 IF K$="R" OR K$="r" THEN 1000 

5465 IF K$="C" OR K$="c" THEN 5480 

5470 PRINT@280 , "Enter Selection #: ";:I 

NPUT L : GOTO 5670 

5480 CLS: NEXT X 

5485 GOTO 5670 

5500 RETURN 

5670 CLS 

5690 PRINT Al$ (L) 

5700 PRINT A2$(L) 

5710 PRINT A3$(L) 

5720 PRINT A4$ (L) 

5730 PRINT A5$ (L) 

5750 PRINT0242 , " Hardcopy Return" 

5760 K$=INKEY$ : IF K$="" THEN 5760 
5770 IF K$="H" OR K$="h” THEN 20000 
5780 IF K$="R" OR K$-"r" THEN 5400 

8999 ' END PROGRAM 

9000 END 

9999 ’ STENCIL- LABEL OPTION 

10000 CLS : PRINT@45 , "1. Label" 

10020 PRINT@85 , "2 . Stencil" 

10040 K$=INKEY$ : IF K$="" THEN 10040 
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Text processing power that no other program can equal. 


PCSG says “Send it back in 30 days for a full 
refund if you don’t agree.” 



WRITE ROM is the definitive word 
processing extension for the Model 100. 
PCSG the first text formatter for the Model 
100, now sold by Radio Shack as Scripsit 
100- Now 18 months later PSCG introdu- 
ces WRITE ROM. Those who have expe- 
rienced it say WRITE ROM literally dou- 
bles the power of the Model 100. 

First of all, WRITE ROM as its name 
implies is on a snap-in ROM. You simply 
take a quarter and open the little compart- 
ment on the back of the Model 100 and 
press it in. It is as easy as an Atari game 
cartridge. You can use other ROM pro- 
grams like Lucid whenever you wish. 

WRITE ROM lets you do every format- 
ting function you would expect like setting 
margins, centering, right justifying and 
having headers and footers. But it does 
them under function key control. 

WRITE ROM remembers your favorite 
format settings so that you can print a 
document without any setup, but you can 
change any formatting or printing parame- 
ters instantly with a function key. 

WRITE ROM’s “pixel mapping” feature 
shows you an instant picture on the screen 
of how your printout will look on paper. 

In all there are 64 separate features and 
functions that you can do with WRITE 
ROM, and some of these features are truly 
breakthroughs for the Model 100. 

First, WRITE ROM lets you do search 
and replace. Any word or phrase in a 
document can be searched for and 
replaced with any other phrase where the 
search words appear. 

Second, WRITE ROM lets you send any 
text (formated or not) to any other 
computer over the phone with just a 
function key. What's more it dials and 
handles sign on and sign off protocol 
automatically. 

Third, WRITE ROM has a wonderful 
feature called Library that lets you record 
favorite phrases, words or commonly used 
expressions (often called boilerplate). 


Any place you wish any Library text to 
appear you just type a code. WRITE ROM 
automatically inserts the text just like a 
Xerox Memory Writer. 

Picture what you can do with that kind 
of capability. 

WRITE ROM is blindingly fast. No one 
can claim faster operation. Because it is 
on ROM it uses virtually none of your 
precious RAM. It works with any printer, 
serial or parallel. You can make a duplicate 
copy of a document file under a new 
filename. Rename or delete (kill) any RAM 
file with function key ease. 

This description only scratches the 
surface of the amazingly powerful piece 
of software. Dot commands allow control 
of such things as margins, centering, line 
spacing and other changes in the middle 
of a document. Most are Wordstar 
compatible. 

A mail merge feature allows you to send 
the same document to every name on your 
mailing list, personalized for each 
recipient. 

WRITE ROM enables you to do under- 
lining, boldface and correspondence 
mode as well as any other font feature like 
superscripts that your printer supports in 
a way that many users say “is worth the 
price of the program.” 

To underline you don’t have to 
remember a complicated printer code. You 
just type CODE U, and to stop underline, 
CODE U again. The CODE key is to the 
right of your spacebar. Boldface? CODE 
B to start and stop. Easy to remember and 
do. Five different printer features of your 
choice. 

We couldn’t list all the features here. For 
example, not just double space but triple 
or any other. You can use your TAB key 
in a document. WRITE ROM allows you 
to indent. This means you can have 
paragraphs that have a first line projecting 
to the left of the rest of the paragraph. 
Plus many more features. 


WRITE ROM has a feature unique to any 
word processor on any computer. It is 
called FORM. FORM is an interactive 
mechanism that lets you create screen 
prompts so that you or someone else can 
answer them to fill out forms or 
questionaires. 

With FORM anyplace where you had 
previously typed a GRAPH T and a prompt 
in a document, WRITE ROM will stop and 
you are shown that prompt on the screen. 
You can type in directly on the screen and 
when you press F8 you see the next 
prompt. Goes to a printer or a RAM file. 

Think of how you can use FORM. A 
doctor or nurse could use it for a patient’s 
history with each question appearing on 
the screen. An insurance salesman could 
have his entire questionaire. You could 
construct a series of prompts to answer 
correspondence typing the answers, even 
using Library codes. This feature lets you 
answer letters in rapid fire fashion each 
with personalized or standard responses. 

Before WRITE ROM you had to be a 
programmer to create a series of prompts. 
Now its as simple as GRAPH T. 

PCSG makes the claim that WRITE ROM 
is the easiest, fastest and most feature rich 
formatter for the Model 100. We are happy 
to offer WRITE ROM because it expands 
the 100 to a dimension of text processing 
you cannot equal on even larger 
computers. 

We brashly state that WRITE ROM is the 
best you can buy. But put that to the test. 
If you aren’t as excited as we are return 
it for a full refund. Priced at $99 on snap- 
in ROM. MasterCard, VISA, American 
Express and COD. 
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PORTABLE COMPUTER SUPPORT GKOJP 

11035 Harry Hines Blvd., #207, Dallas, Texas 75229* 1(214) 351-0564 

PCSG provides hotline software support for the Model 100 Call us at 1 -214-351-0564 


10050 ON VAL(K$) GOSUB 10100,12000 
10100 CLS:PRINT@10,"** Choose Font **” 
10120 PRINT 

10130 PRINT" 1. Normal" 

10140 PRINT" 2. Bold" 

10150 PRINT" 3. Condensed" 

10160 PRINT" 4. Compressed" 

10170 PRINT" 5. Elongated" 

10180 PRINT" Select (1-5)" 

10200 K$=INKEY$ : IF K$="" THEN 10200 

10210 ON VAL(K$) GOSUB 10290,10340,10390 

,10440,10490 

10220 GOTO 20000 

10290 GOSUB 30000 

10300 LPRINTCHR$ (27) ;CHR$(19) 

10320 RETURN 

10340 GOSUB 30000 

10350 LPRINT CHR$ (27) ; CHR$ (31) 

10360 RETURN 

10390 GOSUB 30000 

10400 LPRINT CHR$(27) ;CHR$(20) 

10420 RETURN 

10440 GOSUB 30000 

10450 LPRINT CHR$ (27) ; CHR$ (21) 

10460 RETURN 

10490 GOSUB 30000 

10500 LPRINT CHR$(27) ;CHR$(14) 

10510 RETURN 

11999 ’ Stencil Print routine 

12000 CLS 

12020 LPRINT CHR$(27) ;CHR$(32) : LPRINT C 
HR$(27) ;CHR$(14) 

12030 PRINT : INPUT "How many labels do you 
wish ";J 

12040 FOR 1=1 TO J 

12045 FOR X=1 TO 4 : LPRINT : NEXT X 

12050 LPRINTTAB(l) ;A1$(L) 

12060 LPRINT 

12070 LPRINTTAB(l) ;A2$(L) 

12080 LPRINT 

12090 LPRINTTAB (1);A3$(L) 

12100 LPRINT 

12110 LPRINTTAB ( 1) ;A4$(L) 

12120 LPRINT 

12130 LPRINTTAB ( 1) ;A5$(L) 

12140 FOR X-l TO 5 : LPRINT : NEXT X 
12150 NEXT I 

12155 LPRINT CHR$ (27) ; CHR$ (15) : LPRINT CH 
R$(27) ;CHR$(19) 

12160 GOTO 5400 


20000 CLS 

20010 PRINT" 
11 

*** Hardcopy Routine *** 

20020 PRINT 

20021 PRINT” 

1. Change Font" 

20025 PRINT" 

2. 1-Up Labels" 

20028 PRINT" 

3. 2 -Up Labels" 

20029 PRINT" 

4. Return" 


20030 K$=INKEY$ : IF K$="" THEN 20030 


20032 ON VAL(K$) GOSUB' 10000, 20040,2030 
0 , 20600 

20035 GOTO 20000 

20039 ' 1-UP LABELS 

20040 PRINT: INPUT" How many labels do yo 
u wish " ; J 

20060 FORI =1 TO J 
20070 LPRINTTAB ( 1) ;A1$(L) 

20075 LPRINTTAB(l) ;A2$(L) 

20080 LPRINTTAB ( 1) ;A3$(L) 

20100 LPRINTTAB ( 1) ;A4$(L) 

20110 LPRINTTAB (1 ) ;A5$(L) 

20115 LPRINT 
20120 NEXTI 
20130 GOTO 5400 

20299 ’ 2 -UP LABELS 

20300 PRINT: INPUT" How many labels do yo 
u wish" ; J 

20320 FOR, 1=1 TO J/2 

20330 LPRINTTAB (1) ;A1$(L) ; : LPRINTTAB (41) 
;A1$(L) 

20340 LPRINTTAB ( 1 ) ;A2$(L) ; : LPRINTTAB (41) 
;A2$(L) 

20350 LPRINTTAB (1) ;A3$(L) ; : LPRINTTAB (41) 

; A3$(L) 

20360 LPRINTTAB(l) ;A4$(L) ; : LPRINTTAB(41) 
;A4$(L) 

20370 LPRINTTAB(l) ;A5$(L) ; : LPRINTTAB (41) 
;A5$(L) 

20380 LPRINT 
20390 NEXT I 
20400 GOTO 5400 
20600 GOTO 1000 

29999 ' Reset Printer Control Codes 

30000 CLS 

30010 LPRINT CHR$ ( 27 ) ;CHR$( 15) : LPRINT CH 

R$(27) ;CHR$(32) : LPRINT CHR$(27) ;CHR$(19) 

30020 RETURN 

50000 ' title screen 

50020 CLS 

50040 LINE (5 ,5)-(234,58),l,B 
50060 LINE (50, 10) - (190, 53) , 1 ,BF 
50080 PRINT@135," TAG ' R " 

50100 PRINT@170," PROGRAM " 

50110 PRINT@185 , " *** " 

50120 FOR X-l TO 1000: NEXT X 
50200 SOUND1800 , 10 : SOUND2090 , 10 : SOUND156 
0,10 

50220 CLS 

50240 LINE(5,5)-(234,58) ,1,B 
50260 LINE (50 , 15) - (190,48) , 1 , BF 
50280 LINE (55 ,20)-(185,43) ,0,B 
50300 PRINT@128," Presented by " 

50320 PRINT@171 , " Roger F. Krueger 

It 

50340 SOUND1560 , 10 : SOUND2090 , 10 : SOUND180 
0,10 

50360 FOR T=1 TO 1000: NEXT T 
50400 RETURN 
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TMPC 


A Plan for Efficiency 



For the TRS-80 Model 100 


More than a Calendar 

TMPC helps you organize 
your day. It is more than a 
calendar program; it is a 
toolbox to help you keep 
your most urgent tasks at 
top priority. 

Efficiency is no Game 

When you use TMPC, you 
enter the system of 
screens and corridors 
shown above and access 
features by moving 
through the rooms with 
the arrow keys. The 
screens may resemble an 
adventure game, but 
TMPC is a serious tool. 

The user interface will be- 
come second nature to 
you, like walking through 
the rooms in your home. 

Functions for Efficiency 

Each screen has its own 
function. For example, one 


screen includes a per- 
petual calendar, and an- 
other shows a “warehouse” 
of tasks to be done. In 
other screens you can set 
entries that repeat weekly, 
monthly, quarterly or 
yearly; request a warning 
of up to 999 days for any 
entry; sort your to-do list 
by stress level and 
priority; and more. 

Organization Philosophy 

TMPC has more than just 
“features;” it has a 
philosophy of time man- 
agement inspired by 
Stephanie Winston’s best 
seller. The Organized 
Executive. You won't learn 
all there is to know about 
TMPC in five minutes, but 
after using it, you’ll feel 
more organized , not just 
more computerized. 


Spreading the Word 

One user told us that 
he felt guilty to get so 
much functionality at 
so low a price. Find out 
for yourself. Order 
TMPC today. 


TMPC by Ac'ro-a'tix 

$49.95 + $3.00 Shipping 

For more information, includ- 
ing how to get a Free Sample , 
call or Write: 

Acroatix Incorporated 
P.O. Box 273 
Wilmington, MA 01887 
(617) 658-5550 

Phone orders only call 

( 800 ) 225-5800 



COD or Courier shipment available at extra 
charge. 

CERTIFICATION 

SEAL 



This keyboard tutor provides the skill of 
a lifetime! 


TYPING 


W hat a day! I’m free at last to 
spend some time playing 
(make that working) with my 
Tandy 1000. Here’s the latest issue of 
PCM with that “incredible, does-every- 
thing-known-to-mankind” program, 
mine for the typing. Now, let’s see: 

10 FOR X=1 to 2000 

Now, where is that ‘X’ key today? 
Yesterday, it was somewhere down here 
in the bottom row. Forget it! I’ll be two 
years typing this one in at this rate. 

If this sounds familiar to you, or if 
you can think of somebody else who 
might benefit from increased typing 
skills, then TYPING 1000 might just be 
for you. Typing is a skill which is a 
valuable tool to use throughout life, and 


adds much to the enjoyment of comput- 
ing as a hobby. Like swimming, typing 
ability, once mastered, is not forgotten. 

I have tried to keep the screen format 
of TYPING 1000 attractive and at the 
same time easy to work on. Tandy 
BASIC is extremely cooperative in this 
effort, with its variety of screen displays 
aiding me to this end. 

When the program is first presented, 
a title screen is displayed along with the 
author’s name. When the title clears, we 
are ready to get down to business. A 
simulation of the Tandy keyboard is 
kept on the screen at all times (less 
numeric key pad). This enables the 
student to keep his eyes on the screen 
and not on the keyboard. 

Student typists select from four dif- 
ferent exercises of an on-screen expla- 


nation of the program goals and fea- 
tures. My suggestion is to stay with 
Selection 1 (Beginner), until you be- 
come comfortable with the idea of 
leaving your fingers on the “home keys” 
(highlighted on screen in red). 

Learning to type is a rewarding expe- 
rience in its own right and no scores or 
levels are required to make you feel 
good. In addition, I have not empasized 
speed typing. If you don’t know where 
the keys are, it doesn’t matter whether 
you are fast or slow. Learn the keyboard 
and the speed will come along by itself. 
One thing which cannot be over empha- 
sized is this: “Keep your eyes on the 
screen display, not on the keyboard.” 

TYPING 1000 does not employ any 
mind-warping tricks in programming. 
The style is rather straightforward and 
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simple and the average programmer will to dimension needed string space in 
have no difficulty following program Line 120. From there we jump into the 
flow. The first action in the program is title screen, making use of the often 

neglected Screen 3 to display large 
letters for the TYPING 1000 banner. 

The subroutine at Line 1410 draws 
the keyboard display using CHR$ to 
create a reasonable likeness of the 
original. Please note that while this 


section has little to do with program 
operation, it is important to carefully 
check your work here as an error will 
give your program the look of an ASCII 
omelet. 

Users are then presented a menu 
offering a selection which will deter- 
mine where the program goes from 
here. The INKEYS is used to get the user 
selection, which then is converted to a 
VfiLS numeric. This prevents the stu- 
dent from accidently messing up the 
screen by an errant input. 

Menu selections one and two share 
the same subroutines, only using differ- 
ent data for exercises. This routine 
utilizes Line 410 to call the subroutine 
at 1 1 10 where the actual control is done. 
You should remember to press the 
enter key after each exercise is typed 
in. When a typist completes an exercise 
correctly four times, he or she hears a 
“shave and a haircut” and receives a new 
exercise. (I decided to add a little 
“pizzazz” to the program.) 

Exercise three is a “word practice” 
format, being handled by lines 490-650. 
The Selection four gives you a series of 
“Phrases and Sentences” and is con- 
trolled by a separate subroutine in lines 


(Leonard Hyre works as a claims repre- 
sentative for the Social Security Admin- 
istration. He has written several articles 
for THE RAINBOW, PC M’s sister publica- 
tion for the Color Computer, and is the 
author of a number of commercial 
programs. He may be contacted at P. O. 
Box 403, Cambridge, MD 21613; 301- 
228-0064.) 
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690-830. Successful completion of 24 
phrases leads to graduation of the 
student. 

If you wish to add or change exer- 
cises, it is a simple matter to do. Change 
or add information in the DATA state- 
ments (lines 1850-1920) as you wish, 


remembering to also change the READ in 
Line 1850. Also, if exercises are added, 
the DIM in Line 120 must be modified. 

TYPING 1000 is a long program, but 
one which you may find of some value 
in your software collection. If you are 
overwhelmed at the thought of typing 


in such a long program, send me $7 and 
a note requesting the program, and 111 
send you a copy on disk. My address is 
L. Hyre, P.O. Box 403, Cambridge, 
MD 21613. If you encounter problems 
with the program, feel free to call me at 
(301) 228-0064 after 5: p.m. □ 


The listing: 


20 V* 


* 

30 '* 

TYPING - 1000 

* 

40 ■* 

by Leonard Hyre 

■>v 

50 •* 

PO Bx 403 Cambridge MD 21613 

* 

60 V* 

* 

70 •* 

1-301-228-0064 

* 

80 

For TANDY MS-DOS Machines 

* 


9 ft 1 ^t************************************ 

91 • 

95 ' *** SET UP HOUSEKEEPING AND TITLE SCREEN *** 

96 ' 

100 DEFINT A-Z 
110 ' 

120 DIM A$(36) ,B$(36) ,C$(18) ,D$(12) 

130 ' 

140 ' *** THE TITLE SCREEN *** 

150 


160 SCREEN 3,0: KEY OFF: COLOR 13,0 

170 LOCATE 2,1: PRINT CHR$ (201) ; STRING$ (18 , 205) ; CHR$ (187) 

180 FOR X=3 TO 8 : LOCATE X,l: PRINT CHR$ (186) : LOCATE X,20:PRINT CHR$( 186) -NEXT 
190 PRINT CHR$(200) ; STRING$(18 , 205) ;CHR$(188) 

200 COLOR 14 

210 LOCATE 5,5: PRINT"TYPING . . 1000" ; ; COLOR 11 
220 LOCATE 14,5: PRINT "By" 

230 NM$=" Leonard Hyre ": P-1 : FOR LT=5 TO 18:LOCATE 16,LT:PRINT MID$(NM$ P 1VP-P+1 
: PLAY"01V15L64T125CP64P64" : NEXT LT 
240 FOR DL=1 TO 1500: NEXT 


Civilize the DISK/VIDEO INTERFACE . MAKE SAVAGE THE MODEL 100 

With DISK-BUDDY software for your DV/I, only function keys need touch your disk files! 


Twelve programs for one low price, work 
together to give the TRS-80 Model 100 unique 
disk file handling abilities. Access disk files 
from menu, just like a RAM file. Commands 
you were tediously typing become simple 
function key selections. And that’s just part of 
the power of the DISK-BUDDY PAK. It does 
things you can’t: 

• Create “superfiles” the length of the disk, 
over 170,000 bytes! 

• Print out, or display on either screen, or 
copy to disk or other device, a disk data file 
of any length, WITHOUT USING ANY 
ADDITIONAL RAM! 

• Furthermore, transfer records can be “fil- 
tered”, an example: 

An address file on disk can contain more 
than 1300 entries. You can move to 
RAM, or screen, or printer, etc., those 


m in— 


i miw 2«*iu 


records which contain “California” and 
“Tennis” or whatever. Four logical 
modes of search are available. 


• Also: Features to run, load, save, sort, kill, 
measure, append, and name, disk files and 
RAM files, and much more. 

PCM Magazine (March, ’85) said: “. . . an 
excellent buy ... u manual is extremely 
well written ” . . . “will substantially 
increase the speed and ease of operation of 
the M-100 with the D/VI. ” j 

That was the idea in the first place. 

TO ORDER THE DISK-BUDDY PAK 
(disk and manual): Send name, address, 
and check or money order for $39.95 plus 
$2.00 postage and handling to the address 
below. (For COD’s call: 212-243-2129) 




BuddySystems 

220 West 24th Street 
New York, NY 10011 
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ELECTRONICS 


TRS-80 Model 2000 by Tandy" 


MS-DOS Based 



TRS-80" Model 100 by Radio Shack 



Computer System 


256K MOD2000 W/MONO MONITOR 1319.00 

256K MOD2000 W/COLOR MONITOR 1629.00 

256K MOD 1200 HD 2 DR 1499.00 

128K MOD 1000 W/MONO 1 DR 779.00 

128K MOD 1000 W/COLOR 2 DR 1119.00 

256K MOD 1000 W/HARD DISK 1439.00 

24K MOD 100 PORT 469.00 

24K MOD 200 PORT 679.00 

64K MOD 4D2DR 839.00 

512K MOD 6000 2DR 3099.00 

512K MOD 6000 W/15MEG HD 3799.00 

15 MEG HARD DISK 1329.00 

35 MEG HARD DISK 2059.00 

DMP 105 PRINTER 145.00 

DMP 2200 PRINTER 1149.00 

DMP 130 PRINTER ......249.00 

DMP 430 PRINTER 585.00 

DMP 2100P PRINTER 1019.00 

CGP220 COLOR PRINTER 499.0C 

DWP 510 PRINTER 999.00 

TRACTOR DWP 210 99.00 

TRACTOR DWP 1 1/510 159.00 

TRACTOR FEED DMP2100P 99.00 

PARALLEL PRINTER SWITCH 96.00 

PARALLEL PRINTER CONTROLLER 179.00 

PARALLEL PRINTER CABLE 29.00 

DISK VIDEO INTERFACE 399.00 


100% RS COMPONENTS NO FOREIGN DRIVES OR MEMORY FULL WARRANTY 
ALL RS SOFTWARE 20% OFF CATALOG PRICE 
CASHIERS CHECK OR MONEY ORDER MUST ACCOMPANY ALL ORDERS 

(817) 825-4027 

NOCONA ELECTRONICS • BOX 593 • NOCONA, TX 76255 




250 GOSUB 1850 

260 SCREEN 0,0: KEY OFF: WIDTH 80: COLOR 14,0: CLS 
270 GOSUB 1410 

280 LOCATE 13,1: COLOR 15: PRINT STRING$(80, "*") ; 

290 GOSUB 1800 
300 ' 

310 ’*** MENU DISPLAY *** 

320 • 

330 LOCATE 1 , 36 , 1 , 6 , 7 : COLOR 14:PRINT"The MENU-"; 

340 LOCATE 2 , 36 :PRINT" AA AAA AAAA " 

350 LOCATE 4 , 30 : PRINT"1> Beginner Exercises" : LOCATE 5 , 30 : PRINT"2> Advanced Excer 
cises" : LOCATE 6 , 30 : PRINT" 3> Word Practice" : LOCATE 7 , 30 : PRINT"4> Full Phrases and 
Sentences" : LOCATE 8 , 30: PRINT" 5> Ins true t ions /Background 
360 LOCATE 10 , 30 : PRINT" Enter NUMBER of Choice?"; 

370 CH$=INKEY$ : IF CH$="" THEN 370 

380 IF VAL(CH$)<1 OR VAL(CH$)>5 THEN 370 

390 GOSUB 1800 

400 ON VAL(CH$) GOTO 440,440,490,690,870 
410 ’ 

420 ’*** THIS ROUTINE CALLS . SUB SHARED BY SELECTIONS 1 AND 2 
430 ’ 

440 FOR E=1 TO 36: GOSUB 1110: NEXT 
450 GOTO 290 
460 ' 

470 **** ROUTINE FOR SELECTION 3 *** 

480 ' 

490 COLOR 13: LOCATE 1 , 1 : PRINT"WORD PRACTICE ": LOCATE 1,60: COLOR 4 : PRINT" ’ ? ’ at 



< COCO-UTIL 


"The Connecting Link" 

CoCo-Util is a valuable utility program that allows you to transfer Tandy 
Color Computer disc files to your MS-DOS machine. You may also trans- 
fer MS-DOS files to a Color Computer disc. CoCo-Util will save you 
countless hours of retyping ... a great new utility. 


64K Upgrades Set of 9 chips Great Bargain 

Only $14.95 


PRINTERS 


New Star Gemini SG-10 Model printer. 

120 cps w/true descenders, proportional 
spacing. New model for 1985. 

Our Great Price, Only $249.95 







PC-XT II 


We now offer IBM PC-XT compatible computer sys- 
tems. Don't settle for a Tandy 1000 or other standard 
PC until you check our systems and prices. 

Starting at $865. 


MS-DOS ADVENTURES 


Our popular Hi-Res Color 
graphic Adventures. . .Ca- 
lixto Island, Black Sanctum, 
Shenanigans, Sea Search, 
Trekboer are now available 
for MS-DOS computers 
to challenge and 
entertain you. 




QUALITY VIDEO MONITORS 


We carry both monochrome and color 
monitors at the best prices— several brands 
available. Call for more details. 

Priced from $109.95 


TILT SWIVEL BASE 


Now you can adjust your monitor for best viewing angle. Left, right, 
up, down. Use with any monitor. Compare with units that sell for 
much more. Our great price— Only $14.95 


DISC STORAGE CASE 


Attractive, heavy duty, smoked acrylic case. 
Holds and protects up to 75 5 1 /*" discs with 
six moveable, indexed dividers. 

SUPER BARGAIN ONLY $9.95 
storage box along with ten discs for only $21.95. 



1 0 5!4" discs in attractive styrene box— Only $12.95 


SHIPPING: All orders under $100 please add $2 regular. $5 air. All orders over $100 please add 3% regular, 8% air. California residents please add 6% sales tax. Orders outside 
the continental U S., check with us for shipping amount; please remit U.S. funds. Software authors— contact us for exciting program marketing details. We accept MasterCard 

and VISA Distributed in Canada by Kelly Software. FREE— Send fof OUT Latest PfOdUCt Flyer! 



Mark Data Products 


Department I 


24001 ALICIA PKWY., NO. 207 MISSION VIEJO, CA 92691 (714) 768-1551 
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prompt = MENU . " : COLOR 7:PRINT STRING$(8(2 , 239) ; 

5(2(2 LOCATE 5, 66: COLOR 1(2 : PRINT " DON ' T WORRY" : LOCATE 6 , 66 : PRINT "ABOUT SPEED" 

51(2 LOCATE 10, 7: COLOR 14,1: PRINT" Repeat These Word Exercises Until You Can Ty 
pe Them Smoothly. " : COLOR 11,(2 
52(2 FOR E-l TO 18 

53(2 COLOR 11: LOCATE 4, 1 : PRINT "Here is your word. . . . " ;C$(E) 

54(2 LOCATE 5 , 12 : PRINT "TYPE "; 

55(2 INPUT AN$ 

56(2 IF AN$=CHR$ (&H3F) THEN GOTO 29(2 

57(2 IF AN$OC$ (E) THEN LOCATE 6, 37: COLOR 13 : PRINT "ERROR! ": BEEP : FOR DL=1 TO 2(2(2:N 
EXT: LOCATE 6 ,37: PRINT SPACE$ (6) : COLOR 6 

58(2 LOCATE 4,22:PRINT SPACE$ (12) : LOCATE 5 , 12 : PRINT SPACE$(2(2) 

59(2 FOR DL=1 TO 1(2(2(2: NEXT: PLAY" 05C" 

6(2(2 NEXT E 

61(2 LOCATE 7 ,1 : COLOR 15 : PRINT"Choose : <R>edo words <M>enu" 

62 (2 AX$=INKEY$ : IF AX$=""THEN 62(2 
63(2 LOCATE 7,1:PRINT SPACE$ ( 6(2) : BEEP 
64(2 IF AX$="r" OR AX$-"R" THEN 49 (2 
65(2 IF AX$O"r"0R AX$<>"R"THEN 29(2 
66(2 ' 

67(2 '*** ROUTINE FOR SELECTION 4 - PHRASES AND SENTENCES *** 

68(2 ' 

69(2 LOCATE 1,1: COLOR 11 : PRINT "PHRASE and SENTENCE ACCURACY COLOR 15:LOCATE 
1, 6(2: PRINT"’ ?' at prompt - MENU" : TC=(2 : COLOR 14 
7(2(2 PRINT STRING$(8(2, 239) 

71(2 LOCATE 1(2 , 3(2 : COLOR 2:PRINT"24 CORRECT REQUIRED" ;: COLOR 3: LOCATE 11, 34: PRINT" 
Correct-"; : COLOR 6: PRINT TC ; 

72(2 FOR E-l TO 12 

73(2 LOCATE 4,1: COLOR 1(2 : PRINT "YOUR PHRASE IS ";:COLOR 15:PRINT D$(E) 

74(2 LOCATE 5, 66: COLOR 1(2: PRINT "DON'T WORRY" 

75(2 LOCATE 6, 66: PRINT "ABOUT SPEED" 

76(2 LOCATE 5, 1(2: COLOR 14 : PRINT "TYPE ";: INPUT AN$ 

77(2 IF AN$=CHR$(&H3F) THEN 29(2 

78(2 IF AN$=D$ (E) THEN TC-TC+1 : GOSUB 196(2 : IF TC=24 THEN 131(2 ELSE 8(2(2 

79(2 LOCATE 6,37:COLOR 12 : PRINT" ERROR! ": BEEP : FOR DL-1 TO 28(2: NEXT: LOCATE 6,37:PRI 

NT SPACE$ ( 6 ) : COLOR 14 

8(2(2 LOCATE 4,1: PRINT SPACE$ (6(2) : LOCATE 5 , 1 : PRINT SPACE$(6(2) 

81(2 LOCATE 11, 42: COLOR 12: PRINT TC 
82(2 NEXT E 

83(2 IF TC<24 THEN 72(2 
84(2 ’ 

85(2 ’*** ROUTINE FOR SELECTION 5 - INSTRUCTIONS AND BACKGROUND *** 

86(2 ’ 

87(2 LOCATE 1,1: COLOR 3 : PRINT" INSTRUCTIONS and BACKGROUND " 

88(2 LOCATE 2,1: COLOR 15:PRINT STRING$(8(2, 239) ; 

89^ LOCATE 3,4:COLOR 9:PRINT"This program is designed to give you a number of ba 
sic exercises to get you started on the way to becoming a capable typist.”; 

9(2(2 PRINT"The emphasis is on accuracy, rather than speed. The speed should come 
naturallywith time . " 

91(2 COLOR 15 : LOCATE 7 , 28 : PRINT"**********************************" : LOCATE 8,28:P 
RINT"* FOLLOW THESE GUIDELINES: *" 

92J2 LOCATE 9, 28: PRINT"* 1> Keep fingers on HOME keys *" 

93 (2 LOCATE 1(2 , 28 : PRINT"* 2> Start at BEGINNER series *" 

94(2 LOCATE 11,28: PRINT"* 3> Keep eyes on the 'SCREEN' *" 

LOCATE 12,28: PRINT " *******&** ft*******&**********i<xic*ic u 

96(2 LOCATE 12!l:COLOR 2 : PRINT"PRESS ANY KEY 

97 P AK$-INKEY$ : IF AK$=" "THEN 97(2 

98(2 FOR SW-3 TO 12: LOCATE SW,1: PRINT STRING$(8(2, " ");::NEXT SW 
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: COL 


99 0 COLOR 13: LOCATE 3 , 1 : PRINT"There are several features that should he noted by 
the new user.” 

COLOR 2: PRINT” 1> On Screen Keyboard Layout For Reference . ” 

1010 PRINT " A. Home Keys Are Highlighted In ";:COLOR 12,8: PRINT"RED 

OR 2 , 0 

1020 PRINT" B. Caps Lock Key Is Shown 'ON' As Reminder." 

1030 PRINT" 2> At Any Prompt You May Type '?' To Return To Main Menu." 

1040 PRINT" 3> There Is No Formal Lesson Plan. Work at your own pace." 

1050 COLOR 2: LOCATE 11 , 1 : PRINT"PRESS ANY KEY TO CONTINUE...." 

1060 AK?=INKEY? : IF AK?=" "THEN 1060 
1070 GOTO 290 
1080 ' 

1090 '*** BODY OF ROUTINE FOR SELECTIONS 1 AND 2 *** 

1100 ' 

1110 TI-0 : COLOR 3:LOCATE 1,1:IF VAL(CH$)=1 THEN PRINT "BEGINNERS EXERCISES.. 

SE PRINT" ADVANCED EXERCISES " 


'EL 


1120 LOCATE 1,60: COLOR 15: PRINT"'?' at prompt -• MENU.": COLOR 12: PRINT STRING? (80 
,239) , 

1130 LOCATE 4,1: COLOR 14 : PRINT"HERE IS YOUR EXERCISE " 

1140 LOCATE 10,23:COLOR 10: PRINT"Type Each Exercise Correctly 4 Times." 

1150 IF VAL(CH?)= 1 THEN LOCATE 4, 26: PRINT CHR$(&HDD)+A$(E)+CHR$(&HDE) 

1160 IF VAL(CH?)— 2 THEN LOCATE 4,26:PRINT CHR? (&HDD)+B$ (E)+CHR? (&HDE) 

1170 LOCATE 4,62: PRINT"TIMES PERFECT: ";TI 

1180 LOCATE 5,17: PRINT "TYPE " ; : INPUT AN$ 

1190 IF AN?— CHR? (&H3F) THEN GOTO 290 

1200 IF VAL(CH?)— 1 AND AN?=A?(E) THEN TI-TI+1 ELSE IF VAL(CH$)-2 AND AN?-B?(E) T 
HEN TI-TI+1 

1210 IF AN?=A? (E) OR AN$=B$(E) THEN LOCATE 4, 77: PRINT TI ; : PLAY"05C” 

1220 IF VAL(CH?)=1 AND AN.$OA$(E) THEN LOCATE 6, 37: COLOR 12 : PRINT "ERROR! PLAY" 0 

1V15C" : FOR DL-1 TO 300 : NEXT: LOCATE 6,37:PRINT SPACE? (6) : COLOR 10 

1230 IF VAL(CH?)-2 AND AN?OB?(E) THEN LOCATE 6,37:COLOR 4 : PRINT "ERROR! ": BEEP • FO 

R DL— 1 TO 200: NEXT: LOCATE 6, 37: PRINT SPACE? (6) : COLOR 6 

1240 LOCATE 5., 17: PRINT SPACE?(20); 

1250 IF TI< 4 THEN 1180 
1260 IF TI— 4 THEN GOSUB 1960 
1270 RETURN 
1280 ' 

1290 '*** GRADUATION AWARD *** 

1300 ' 

1310 GOSUB 1960 :GOSUB 1800 

1320 LOCATE 5, 39: COLOR 4,6: PRINT"TYPING" : LOCATE 6 , 39 : PRINT"SCHOOL" : COLOR 0,6‘LOC 
ATE 7,38: PR I NT "GRADUATE" 

1330 KEY OFF: SCREEN 3,1: COLOR 1 , 3 : CLS : LOCATE 4,1 
1340 PRINT" CONGRATULATIONS!" 

1350 LOCATE 12 , 6 : PRINT”You Have" 

1360 LOCATE 18 , 5 : PRINT"Graduated! " 

1370 GOTO 1370 
1380 ' 

1390 ’*** DRAW THE ON SCREEN KEYBOARD DISPLAY *** 

1400 ' 

1410 LOCATE 14,1: COLOR 0,7: FOR WIPE-14 TO 24: PRINT STRING? (80," ");: NEXT : LOCATE 
14 , 1 

1420 Kl?— CHR? (201) :K2?-CHR?(187) :K3?-CHR?(203) ;K4?-CHR?(186) :K5?=CHR?(206) 

1430 K6?=CHR? (200) :K7?-CHR?(188) : K8?=CHR? (205) :K9?-CHR?(186) 

1440 K10?=CHR?(204) :K11?=CHR?(185) :K12?=CHR?(202) 

1450 PRINT " " ;K1? ; 

1460 FOR RP— 1 TO 3 : PRINT K8? ;K8? ;K8? ;K3? ; :NEXT RP: PRINT K8? ;K8? ;K8? ;K2? ; " ";K1 
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$; 

1470 FOR RP=1 TO 3 : PRINT K8$ ;K8$ ;K8$ ;K3$ ; :NEXT RP: PRINT K8$ ;K8$ ;K8$ ;K2$ ; " " ;K1 

$; 

1480 FOR RP=1 TO 3 : PRINT K8$ ;K8$ ;K8$ ;K3$ ; :NEXT RP: PRINT K8$ ;K8$ ;K8$ ;K2$ ; " 

1490 PRINT" " 

1500 PRINT " 

1510 PRINT K9$ ; "F 1";K9$;"F 2" ;K9$;"F 3";K9$;"F 4";K9$;" " ;K9$;"F 5" ;K9$;"F 6" 

;K9$ ; "F 7" ;K9$;"F 8" ;K9$;" ";K9$;"F 9" ;K9$.; "F10" ;K9$ ; "Fll" ;K9$ ; "F12" ;K9$ 

1520 PRINT " " ;K10$ ; : 

1530 PRINT K8$ ;K8$ ;K8$ ;K5$ ;K8$ ;K8$ ;K8$ ;K5$ ;K8$ ;K8$ ;K8$ ;K5$ ;K8$ ;K8$ ;K8$ ;K5$ ;K8$ ;K 
8$ ; K8$ ;K5$ ; K8$ ; K8$ ; K8$ ;K5$ ; K8$ ;K8$ ; K8$ ; K5$ ;K8$ ; K8$ ;K8$ ;K5$ ;K8$ ; K8$ ; K8$ ;K5$ ; K8$ ; K 
8$ ;K8$ ;K5$ ;K8$ ;K8$ ;K8$ ;K5$ ;K8$ ;K8$ ;K8$ ;K5$ ;K8$ ;K8$ ;K8$ ;K5$ ;K8$ ;K8$ ;K8$ ;K11$ 

1540 PRINT " 

1550 PRINT K9$; "esc" ;K9$; " 1 ”;K9$;" 2 ";K9$;" 3 ";K9$;" 4 ";K9$;" 5 ";K9$;" 6 " 
;K9$ ; " 7 ";K9$;" 8 ";K9$;" 9 ";K9$;" 0 ";K9$;" - ";K9$;" = " ;K9$ ; "bak" ;K9$ 

1560 PRINT " " ;K10$ ; 

1570 PRINT K8$;K8$;K8$;K12$;K3$;K8$;K8$;K12$;K3$;K8$;K8$;K12$;K3$;K8$;K8$;K12$;K 
3$;K8$;K8$;K12$;K3$;K8$;K8$;K12$;K3$;K8$;K8$;K12$'K3$;K8$;K8$;K12$;K3$;K8$;K8$;K 
12$ ;K3$ ;K8$ ;K8$ ;K12$ ;K3$ ;K8$ ; K8$ ; K12$ ; K3$ ;K8$ ;K8$ ; K12$ ;K3$ ;K8$ ; K8$ ;K12$ ;K3$ ;K8$ ; 
K8$;K12$;K2$ 

1580 PRINT " " ; 

1590 PRINT K9$ ; "TAB ";K9$;" Q ";K9$;" W ";K9$;" E ";K9$;" R ";K9$;" T ";K9$;" Y 
" ;K9$ ; " U ";K9$;" I " ;K9$;" 0 ";K9$;" P ";K9$;" [ ";K9$;" ] ";K9$;" ";K9$ 

1600 PRINT " " ;K10$ ; 

1610 PRINT K8$;K8$;K8$;K8$;K12$;K3$;K8$;K8$;K12$;K3$;K8$;K8$;K12$;K3$;K8$;K8$;K1 
2$ ;K3$ ;K8$ ;K8$ ;K12$ ;K3$ ;K8$ ;K8$ ;K12$ ;K3$ ;K8$ ;K8$ ;K12$ ;K3$ ;K8$ ;K8$ ;K12$ ;K3$ ;K8$ ;K 
8$ ;K12$ ;K3$ ;K8$ ;K8$ ;K12$ ;K3$ ;K8$ ;K8$ ;K12$ ;K3$ ;K8$ ;K8$ ;K12$ ;K3$ ;K8$ ;K8$ ;K7$ ; " 

;K4$ 

1620 PRINT " " ;K9$; 

1630 PRINT "cntl ";K9$;" A ";K9$;" S ";K9$;" D " ;K9$;" F ";K9$;" G ";K9$;” H " ;K 
9$;" J " ;K9$ ; " K ";K9$;" L ";K9$;" ; ";K9$;" ' ";K9$; "enter ";K9$; 

1640 PRINT" "; 

1650 PRINT K10$;K8$;K8$;K8$;K3$;K8$;K12$;K8$;K8$;K3$;K12$;K8$;K8$;K3$;K12$;K8$;K 
8$;K3$;K12$;K8$;K8$;K3$;K12$;K8$;K8$;K3$;K12$;K8$;K8$;K3$;K12$;K8$;K8$;K3$;K12$; 
K8$;K8$;K3$;K12$;K8$;K8$;K3$;K12$;K8$;K8$;K3$;K12$;K8$;K8$;K3$;K12$;K8$;K8$;K8$; 
K3$ ;K8$ ;K8$ ; 

1660 PRINT Kll$ 

1670 PRINT" " ; 

1680 PRINT K4$ ; "c" COLOR 12 : PRINT CHR$ (219) COLOR 0:PRINT"p” ;K4$ ; "SHFT" ;K4$ ; ” 

Z 11 ; K4$ ; ” X " ; K4$ ; " C ";K4$;" V ";K4$;" B ";K4$;" N ";K4$;" M ";K4$;" , ";K4$;" 

. " ; K4$ ; " / " ;K4$ ; "SHFT" ;K4$ ; "<- " ;K4$ 

1690 PRINT" "; 

1700 PRINT K6$;K8$;K8$;K8$;K12$;K8$;K8$;K8$;K8$;K12$;K8$;K8$;K8$;K12$;K8$;K8$;K8 
$;K12$;K8$;K8$;K8$;K12$;K8$;K8$;K8$;K12$;K8$;K8$;K8$;K12$;K8$;K8$;K8$;K12$;K8$;K 
8$ ;K8$ ;K12$ ;K8$ ;K8$ ;K8$ ;K12$ ; 

1710 PRINT K8$;K8$;K8$;K12$;K8$;K8$;K8$;K12$;K8$;K8$;K8$;K8$;K12$;K8$;K8$;K7$; 
1720 LT$="ASDF" :P=1: COLOR 12 

1730 FOR LT=21 TO 33 STEP 4:L0CATE 21,LT:PRINT MID$(LT$ , P, 1) : P=P+1 :NEXT LT 
1740 LT$="JKL:":P=1: COLOR 12 

1750 FOR LT=45 TO 57 STEP 4: LOCATE 21, LT: PRINT MID$ (LT$ , P , 1) : P=P+1 : NEXT LT 
1760 RETURN 
1770 ' 

1780 ’*** WIPE THE TOP HALF OF THE SCREEN CLEAN *** 

1790 ' 

1800 COLOR 14,0: FOR WIPE=1 TO 12: LOCATE WIPE, 1: PRINT SPACE$ (80) ; :NEXT 
1810 RETURN 
1820 ' 

1830 '*** DATA FOR EXERCISES READ IN FROM HERE *** 
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1840 ' 

1850 FOR X-l TO 36: READ A$(X) : NEXT: FOR X-l TO 36: READ B$(X) : NEXT: FOR X-l TO 18 :R 
EAD C$(X) : NEXT: FOR X- 1 TO 12: READ D$(X) :NEXT 

1860 DATA SFAD , FADS , KJL; , J ; LK, GHTU ,UGHT ,WEVN,VEWQ, INOP , PINO , ZXTR, BRNY, CLOS , SEKP , 
TYUI , REOP , MVWH , DALK , VBNC , ZXCV , DEKI , AIAI , SUEA , QWOI , KSDJ , FDSA , JKLO , QWTR , OICN , NOQZ , 
HG ; A , SLKD , YTOW , QOEI , ERLM , PSTR 

1870 DATA A1S2 , D3F5 , T4Y5 , 7K86 , POQW, D3L0 , J5K1 , 0932 , D012 , PCB4 , CR45 ,USA0 , Z021 ,M03D , 
L0O9 , DR13 , PR3V , ZPR6 , NHU8 , H0DX , XYP3 , 01CE , NL90 , SL02 , P03C , X09E , MOTS , 9371 , C0Z3 , FH03 , 
DX34 , NL90 , HNLZ , ZN37 , CDE3 , LKN8 

1880 DATA DOWNTOWN, EVERYDAY, ANTICIPATE, MERIDIAN, MAXIMUM, IMITATE, ZESTFUL, UNDERSTA 
ND , OVERCOME 

1890 DATA MEANINGFUL , XYLOPHONE , SCHOOLING , PHOTOGRAPH , EXONERATE , INTERFACE , COMPUTER 
.GREATEST, MAGAZINE 

1900 DATA NOW IS THE TIME FOR ALL GOOD MEN, EVERY GOOD BOY WILL HAVE HIS DAY , THER 
E IS NOTHING STOPPING ME NOW, ROSES ARE RED -VIOLETS ARE VIOLET, MANY A GOOD MAN HA 
S GONE ASTRAY, I LOVE TO TYPE WITH MY OWN TANDY, THE SLY FOX WILL GET THE CHICKEN 
1910 DATA COMPUTERS ARE NOT ACTUALLY SMART, HE LIKES TO WRITE HIS OWN STORIES, OST 
RICHES ARE VERY STRANGE BIRDS, PLUTO AND CHARON ARE FAR DISTANT, DANCING AND SINGI 
NG CELEBRATIONS 
1920 RETURN 
1930 ' 

1940 '*** MAKE EXTREMELY STRANGE NOISES AS REQUIRED *** 

1950 ' 

1960 PLAY"T100V15L16O3CO2P64L16GL32GP32AL16P32G" : FOR DL=1 TO 350 : NEXT : PLAY"L16BP 
3203C” 

1970 RETURN 
1980 END 




DON’T MISS 

THE LA TEST ADVANCE 

IN MODEL 100/TANDY 200 

SOFTWARE 


X-TEL 


by the creators of 
TELECOMMUTER" 


■ Use TEXT while online in TELCOM: Download letters 
and upload a reply in one terminal session 

■ Exchange .CO, .BA and .DO files with other computers, 
bulletin boards, and information utilities 

■ Standard XMODEM error-checking protocol 

■ List and Kill Files online in TELCOM 

■ Compatible with Telecommuter and other desktop 
communications software supporting XMODEM 

Specify Radio Shack Model 100 or Tandy 200 computer 
Price: $50 on MS-DOS diskette or cassette 
MasterCard and Visa accepted. 

Please call or write for further information. 

Sigea Systems, Inc. 

19 Pelham Road 
Weston, MA 02193 
(617) 647-1099 


1000 

1200 

2000 

6000 

PROFESSIONAL 

ACCOUNTING 

SOFTWARE 

Payroll General Ledger 

Payroll History Accounts Receivable 

Accounts Payable Inventory - 

Check Recon. Multi Whse. 

Mailing List 

YES!! Now you can get the EXACT same software to run on 
ANY of the Tandy MS-DOS Systems as well as the XENIX 
Multi-user Systems!!! References from Coast to Coast!!! 

YES!! Payroll and General Ledger can accept FOREIGN 
INPUT from such sources as a DATA BASE or 
SPREADSHEET APPLICATION!!! 

YES!! Onsite Installation, Training, as well as Custom Program- 
ming and Modification services are available!!! 

YE$!! SSI Software IS COMPATIBLE with most Non-Tandy 
MS-DOS Systems. 

YES!! FREE Demos are available on ALL systems!!! 

Systems Support, jnc. 

P.O. Box 205 
Barre, Vermont 05641 
802-479-0160 

Store and Dealership Inquiries Welcomed. 

MS-DOS. XENIX Trademarks of Microsoft Corp. 
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1000 


Feature 


A home improvement tool for your 
Tandy 1000 


The 


W hy is it that everybody seems 
to have a neighbor whose 
favorite statement goes some- 
thing like “so what does it do besides 
play games?” No use in bringing out 
WordStar or 7-2-5 for this guy — that 
would send him into future shock. This 
program, The Handi 1000 might then be 
the answer. He or she will be able to 
readily grasp the conveniences offered 
by The Handi 1000 as they apply to his 
everyday life. And of course, you also 
will benefit by having a handy set of 
home improvement tools available 
when you need them. 

The program presented here does all 
the calculating of materials needed for 
a number of home improvement jobs 
and allows the user to make useful cost 
comparisons rather than jumping 
blindly into a job. Options include 
painting, wallpapering, carpeting, til- 
ing, concrete pouring and paneling. 

Tandy 1000 BASIC is a powerful 
version of Microsoft BASIC and offers 


Handi 


By Leonard Hyre 


us great flexibility in creating useful and 
attractive programs. I have made use of 
BASIC’s SCREEN 6 by using a CLEAR 
, , , ( 32768 ) statement to reserve the 
additional memory needed to make 
utilization of this graphics mode possi- 
ble. By using SCREEN 6, we will be able 
to use 80-character text and high- 
resolution graphics statements on the 
same screen. This gives us the ability to 
draw graphics representations of the 
types of projects undertaken, making 
measurements, etc., easier to under- 
stand. 

The LINE and PAINT commands are 
used often to draw the walls, floorplans, 
3-D concrete pours and other graphics 
representations. These are simple to use 
and provide an easy way to dress up the 
screens for the various routines. Also, 
for those of you not familiar with the 
many variations of the powerful PRINT 
USING, you may find the printer option 
routines interesting to read over. This 
command allows us to to present attrac- 


1000 


tive printout formats and still keep all 
of our command generic; the advantage 
being a program that does not need to 
be modified by the user. 

From the main menu, you will be 
presented six options (as listed earlier). 
The basic screen format for the paneling 
and painting is shared as is the format 
for carpeting and tiling. Wallpapering 
and concrete pouring each get separate 
graphics treatments. In each case, the 
user is prompted for the information 
needed to complete the job estimate. 
Following the input of needed informa- 
tion, the program offers a hardcopy 
option. 

I realize the listing is a long one, but 
I believe you will be pleased with the 
results. The Handi 1000 can really be a 
useful program to have in your software 
collection. If the thought of typing it all 
in overwhelms you, just send me $8 to 
cover the cost of the disk and postage, 
your name and address and I’ll be happy 
to send you a copy on disk. □ 
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The listing: 

lj $0 ' a**************************************** 


110 

' * 

The... HAND I 1000 

* 

120 

' * 

by 

* 

130 

» * 

Leonard Hyre 

* 

140 

» * 

(C) 1985 

* 


150 ' ***************************************** 

16(21 ' 

170 '8(21 COLUMN TEXT AND HI -RES GRAPHICS USING SCREEN 6 
18(21 ' 

19(21 ’ 

2(21(21 '*** SET UP SPACE FOR SCREEN 6 *** 

21(21 ' 

22(21 CLEAR , , , (32768! ) 

23(21 KEY OFF: SCREEN 6,1: COLOR 14,J2f:CLS 
24(21 PALETTE 2,1(21 
25(21 • 

26(21 ’*** SHOW THE MENU HERE *** 

27(21 ' 

280 CLS : COLOR 14,J2f:GOSUB 1840:PRINT STRING$(80, "*") .'LOCATE 3,29: PRINT "The H 

A N D I - 1(2100" : LOCATE 5 , 1 : PRINT STRING$(80, "*") 

290 FOR DL=1 TO 6 00: NEXT: LOCATE 8,36: PRINT "The MENU" 

300 LOCATE 11, 34: PRINT" 1> PANELING" 

310 LOCATE 12 , 34: PRINT" 2> PAINTING" 

320 LOCATE 13 , 34 : PRINT"3> WALLPAPER" 

330 LOCATE 14 , 34 : PRINT"4> CARPETING" 

340 LOCATE 15 , 34 : PRINT" 5> CONCRETE" 

350 LOCATE 16 , 34 : PRINT"6> TILES" 

360 LINE (250 , 50) - (400 , 145) , 1 , B : LINE (250 , 50) - (230 , 40) , 1 : LINE- (230,135) , 1 : LINE- (25 
0 , 145) , 1 : LINE (2 30 ,40) -(380,40) , 1 : LINE- (400 , 50) , 1 : PAINT (380 , 45) , 1 , 1 
370 LINE (2 30 ,130 >-(50,130) ,2: LINE- (100 ,160) , 2 : LINE- (580,160) , 2 : LINE- (520,130) , 2 : 
LINE- (400, 130) , 2 : LINE (100 ,162)-(580,178) ,2,B: PAINT ( 570 , 175) ,2,2 

380 LOCATE 22 , 27 : PRINT" HAND I 1000 by Leonard Hyre ";:LOCATE 25,1: PRINT" CAP 

S KEY ON! : LINE(2 , 190) - (125 , 199) , 2 , B 

390 LINE (204 ,166)-(459,177) ,0,B 

400 PLAY"01C" : LOCATE 18, 38: PRINT "YOUR CHOICE?" 

410 AN$=INKEY$ 

420 IF AN$=" "THEN 410 ELSE LINE(2 , 190) - (125 , 199) , 0 , BF 
430 IF AN$="1"THEN Sl$=" PANELING" 

440 IF AN$="2"THEN Sl$=" PAINTING" 

450 ' 

460 '*** USE INSTR COMMAND TO GOTO THE PROPER SUBROUTINE *** 

470 ’ L 

1ST 

480 ON INSTR( "123456" ,AN$) GOTO 530,530,1060,1360,1890,1360 
490 GOTO 410 
500 ’ 

510 - *** PANELING AND PAINTING SETUP *** 

520 ’ 

530 COLOR 0,7: CLS : LINE (380 , 80) - (600 , 130) , 1 , B : LINE (440 , 100) - (470, 128) , 1 , B : LINE (52 
5 , 100) -(575,118) , 1 , B : PAINT (38 2 ,82) ,2,1: PAINT (5 30 , 110) ,4,1: PAINT (442 , 102) ,4,1 
540 XH$="HEIGHT" : FOR LT=11 TO 17:LOCATE LT,45:PRINT MID$ (XH$ , LT- 10 , 1) ; : NEXT LT 
550 XH$="<- WIDTH ->":FOR LT=54 TO 69: LOCATE 19, LT: PRINT MID$ (XH$ , LT- 53 , 1) ; : 
NEXT LT 

560 -LOCATE 12 , 56 : PRINT" DOOR" : LOCATE 12 , 67 : PRINT"WINDOW" : LOCATE 1,1 

570 GOSUB 1800: PRINT: PRINT STRING$ ( 80, "*"): LOCATE 3,1: PRINT "The MEASUREM 

ENT S - - " ; : LOCATE 4,1: PRINT STRING$(80, "*") ; : 

580 LOCATE 3, 40: PRINT Sl$ 

590 LOCATE 5,2:PRINT"HT OF WALL( FT/IN .)": INPUT" FT. ";HA$:GOSUB 1800:INPUT" IN" 
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;HB$ : GOSUB 18J2fj3 

600 PRINT" WIDTH A (FT/IN) LINE INPUT" FT? " ; WF? : LINE INPUT" IN?" ;WI$ : GOSUB 180 
0: INPUT" NO. OF WALLS THIS SIZE" ;AZ: GOSUB 1800: PRINT" WIDTH B (FT/IN) ": LINE 1NPU 
T" FT?" ;WG$:LINE INPUT" IN? " ;WJ? : GOSUB 1800:INPUT" NO. OF WALLS THIS SIZE";AX:GO 
SUB 1820 

610 INPUT" NO. OF REGULAR WINDOWS" ;WN: GOSUB 1800 
620 INPUT" NO. OF PICTURE WINDOWS" ;WP: GOSUB 1800:OQ=WP 
630 INPUT" NO. OF DOORS" ; DR: GOSUB 1800 
640 ZZ=VAL ( HA$ ) * 1 2+VAL (HB$ ) 

650 ZY»VAL(WF$)*12+VAL(WI?) 

660 ZX=VAL(WG?)*12+VAL(WJ?) 

670 WA=WN*1152 : WP=WN*2306 : DA=DR*1980 : RE=WA+WP+DA 
680 GOSUB 1840 

690 GB-(ZZ*ZY)*AZ:GC=(ZZ*ZX)*AX 

700 GA=(GB+GC) -RE 

710 NF=INT (GA/144) : NI=GA- (NF*144) 

720 IF AN?="1"THEN 730 ELSE IF AN$="2"THEN 820 ELSE IF AN?="3"THEN 1060 
730 PRINT STRING? (80, PRINT" WHAT ROOM ARE WE WORKING WITH? "; 

740 LINE INPUT RM$ : IF RIGHT? (RM$ , 4)<>"ROOM" THEN RM?=RM?+" ROOM" .'GOSUB 1800 

750 NP=INT (NF/32)+l 

760 PRINT" PANEL CALCULATIONS: 

770 PRINT" TO DO THE ";: PRINT RM? ; " YOU WILL NEED APPROXIMATLEY ".-PRINT" A TOTAL 
OF "; -.PRINT USING"###. #"; NP ;: PRINT" SHEETS OF PANEL." 

780 PRINT" PRINT THIS (Y/N) " ; 

790 LQ?=INKEY? : IF LQ?=" "THEN 790 

800 IF LQ?="Y" OR LQ?="y" THEN GOSUB 2590 

810 RUN 280 

820 LOCATE 19,1: PRINT STRING? (80 PRINT" PAINTING CALCULATIONS: "; 

830 PRINT" WHAT ROOM ARE WE WORKING WITH? " ; 

840 LINE INPUT RM? : IF RIGHT? (RM? , 4)O"R00M" THEN RM?=RM?+" ROOM": GOSUB 1800 
850 PRINT" COST OF PAINT/GALLON??" ;: LINE INPUT CG?:GOSUB 1800 

860 LOCATE 21, 40: PRINT" HOW MANY COATS WILL YOU APPLY? ";:LINE INPUT NC?:GO 
SUB 1800 

870 PRINT" HOW MANY SQ . FT/GAL. DOES MFG . RECOMEND? ";: LINE INPUT FG?:GOSUB 1800 

880 LOCATE 23 , 2 : PRINT"WILL YOU DO CEILING? (Y/N) ": GOSUB 1800 

890 A?=INKEY? : IF A?=" "THEN 890 

900 IF A? 0"Y" THEN 930 

910 NF-(.(ZY*ZX)/144)+NF 

920 FOR DL= 1 TO 800: NEXT 

930 FOR WIPE=20 TO 24:LOCATE WIPE, 1: PRINT SPACE? (80) NEXT WIPE 
940 LOCATE 20,1: PRINT" PAINTING CALCULATIONS 

950 PRINT" TO PAINT THE " ;RM? ;: PRINT" YOU WILL NEED " ; : GN=INT(NF/VAL(FG?)*VAL(NC 
?)+l) : PRINT USING"###.#" ;GN; : PRINT" GALLONS." 

960 PRINT" THE APPROXIMATE COST WILL BE "; 

970 CG=VAL(CG?) : CP=GN*CG 
980 PRINT USING"?###.##" ; CP 
990 PRINT ” PRINT THIS <Y/N>?" 

1000 OG?=INKEY? : IF OG?=""THEN 1000 
1010 IF OG?="Y” OR OG?="y"THEN GOSUB 2670 
1020 RUN 280 
1030 ' 

1040 '*** WALLPAPERING HERE *** 

1050 • 

1060 COLOR 0 , 7 : CLS : PRINT STRING? (80, 202) -.LOCATE 2 , 1 : PRINT "WALLPAPER CALCULATION" 
: LOCATE 3 , 1 : PRINT STRING? (80 , 202) 

1070 LINE (309 ,119)-(618,185) ,0 , B 

1080 PPR?=STRING? (38 , CHR?(1) ) : FOR PAPER-16 TO 23:LOCATE PAPER , 40 : PRINT PPR?;:NEX 
T PAPER 

1090 LINE ( 350 , 130) - (400 ,183) , 2 , BF: LINE (480 , 130) - (550 , 165) , 1 , BF: LINE (505 , 130) - (48 
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5,150) , 0 : LINE- (505 ,165) , 0 : LINE(525 , 130) - (545 , 150) ,0: LINE- (525 , 165) ,0:PAINT(500 1 
33 ) ,2,0: PAINT (5 30 ,132) ,2,0: CIRCLE (390, 155) ,3 

1100 HE$="HEIGHT" : FOR LT=17 TO 22: LOCATE LT, 38: PRINT MID$ (HE$ , LT- 16 , 1) :NEXT LT : L 

OCATE 15,41 :PRINT"« WIDTH »" : LOCATE 8 , 46 : PRINT"Sample 

for Wallpapering" 

1110 LOCATE 5,1: INPUT"WHAT ROOM ARE WE WORKING WITH ";RM$:IF RIGHT$ (RM$ , 4)<>"R 

OOM"THEN RM$=»RM$+" ROOM":GOSUB 1800 

1120 PRINT"MEASURE & RAISE RESULT TO THE NEXT WHOLE FOOT! 

1130 PRINT"NOTE : WE WILL BE USING STANDARD 36 SQ.FT. ROLL FOR CALCULATIONS WI 

TH 6 SQ.FT FOR PATTERN MATCH. 

1140 PRINT "ON OCCASION YOU MAY FIND DOUBLE LENGTH ROLLS OF 72 SQ.FT." 

1150 INPUT"WILL YOU BE USING THE’ SINGLE' SIZE <Y/N>";SS$ 

1160 INPUT"WIDTH WALL A" ;WA$ : INPUT "NO. WALLS THIS SIZE";NW 
1170 INPUT "WIDTH WALL B" ;WB$ : INPUT"NO .WALLS THIS SIZE"; SB 
1180 TW=VAL(WA$)*NW+VAL(WB$)*SB 

1190 INPUT"HEIGHT OF WALLS" ; HW : INPUT "NO . OF WINDOWS" ; NZ ; INPUT "NO . OF DOORS" ;ND 
1200 RP=(TW*HW)/30- (INT (NZ) /2+ND)+l : IF SS$="N"THEN RP=RP/2 
1210 RO=INT(RP)+l 
1220 INPUT "COST PER ROLL";CR 

1230 FOR XN=18 TO 22:LOCATE XN,1:PRINT SPACE$ (36) ; (NEXT 
1240 LOCATE 18,1 

1250 PRINT"TO WALLPAPER THE " ;RM$ 

1260 PRINT" YOU NEED ";RO;" ROLLS" 

1270 PRINT : PRINT" YOUR COST IS 
1280 PRINT USING"$###. ##" ; CR*RO 
1290 PRINT" PRINT THIS? <Y/N>" 

1300 OG$=INKEY$ : IF OG$=""THEN 1300 

1310 IF OG$="Y" OR OG$="y" THEN GOSUB 2750 

1320 RUN 280 

1330 ’ 

1340 '*** CARPETING THE ROOM AND LAYING TILES HERE *** 

1350 ' 

1360 COLOR 15, 1:CLS: PRINT STRING$(80, "*") : IF AN$="4"THEN SY$=" CARPETING A ROOM" 
ELSE IF AN$="6"THEN SY$-"* TILING A ROOM *" 

1370 LOCATE 2, 32: PRINT SY$ 

1380 LOCATE 3,1: PRINT STRING$ (80 , ) ; 

1390 LINE ( 360 , 140) - (620 , 190) , 3 , B : PAINT (365 ,145) ,3,3: LINE (450 , 140) - (500 ,156) , 1 , BF 
: LINE (620 , 160) - (636 , 184) , 1 ,BF 

1400 LINE (380, 138) - (430, 142) , 0 , B : LINE(550, 138) - (600 , 142) , 0 , B : LINE(358 , 150) - (362 , 
170), 0,B 

1410 LOCATE 14,46 :PRINT"TERMS TO UNDERSTAND :": LOCATE 15 , 46 : PRINT" 1 -MAIN ROOM ARE 
A" : LOCATE 16 , 46 : PRINT" 2 -CUT OUTS”:LOCATE 17 , 46 : PRINT" 3 -ADD ONS” 

1420 LOCATE 19, 59: PRINT "<2>" : LOCATE 22 , 79 : PRINT" 3" : LOCATE 23 , 59 : PRINT"<1>" : LOCA 
TE 12, 55: PRINT" Sample Floor Plan"; 

1430 LOCATE 6 , 2 : PRINT "WHICH ROOM ARE WE WORKING WITH";: INPUT RM$:IF RIGHT$(RM$,4 
)0" ROOM" THEN RM$=RM$+" ROOM" 

1440 IF AN$="4"THEN PRINT" MEASURING FOR CARPET: ";:ELSE IF AN$="6"THEN PRINT" 
MEASURING FOR TILES : " ; 

1450 IF AN$="4"THEN PRINT" USE NEAREST FOOT FOR MEASUREMENT" ;: ELSE IF AN$="6"TH 
EN PRINT" PLEASE -ENTER TOTAL NUMBER INCHES"; 

1460 LOCATE 8 , 2: INPUT "WIDTH MAIN AREA" ;WM: GOSUB 1800:LOCATE 8,40:INPUT" LENGTH 
MAIN AREA" ;LM: GOSUB 1800 

1470 PRINT" ADD-ON Areas (Y/N)":GOSUB 1800 

1480 Al$=INKEY$ : IF Al$=""THEN 1480 

1490 LOCATE 9,1:PRINT SPACE$ ( 20) : LOCATE 9,1 

1500 LOCATE 9 , 1 : IF Al$="Y"THEN INPUT" WIDTH ";AW:LOCATE 9,40:INPUT" LENGTH " ; AL 
:FOR TI==1 TO 600 : NEXT : LOCATE 9,1: PRINT SPACE$ ( 78) ;: LOCATE 9,1 
1510 IF A1$<>"Y"THEN 1570 

1520 LOCATE 9,1:PRINT SPACE$ (78) (LOCATE 9,1:PRINT" OK. ANYMORE? (Y/N)":GOSUB 1 
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1530 A2$-INKEY? : IF A2$=""THEN 1530 

1540 LOCATE 9 , 1 : PRINT SPACE$ ( 20) LOCATE 9,1 

1550 IF A2?="Y" THEN COLOR 4: COLOR 4: PRINT" ADD ALL REMAINING ADD-ONS TOGETHER!" 
: COLOR 0 

1560 IF A2$="Y"THEN INPUT" WIDTH ";BW:GOSUB 1800:LOCATE 10,40: INPUT" LENGTH ";B 
L: GOSUB 1800 

1570 IF AN?="4"THEN JQ$="FOOT" 

1580 IF AN?="6"THEN JQ?="INCH" 

1590 FOR WIPE=9 TO ll:LOCATE WIPE,1:PRINT SPACE$ ( 78 );: NEXT: LOCATE 9,1 
1600 PRINT" NOW: 'CUT-OUTS' (MEASURE TO NEAREST ";JQ$;")" 

1610 PRINT" ARE THERE ANY? ( Y/N )":GOSUB 1820 
1620 A3$=INKEY$ : IF A3$=""THEN 1620 
1630 IF A3$0"Y"THEN 1690 

1640 IF A3?="Y"THEN PRINT" WIDTH INPUT CW:GOSUB 1800:LOCATE 11,40: INPUT" LENG 
TH CL: GOSUB 1800: LOCATE 9 , 1 : PRINT SPACE$ (236 ): LOCATE 9,1 
1650 PRINT" ANY MORE ’CUT-OUTS'?" 

1660 A4$=INKEY$ : IF A4$=""THEN 1660 

1670 FOR WIPE=9 TO 13:LOCATE WIPE , 1 : PRINT SPACE? (78) : NEXT 

1680 IF A4$-"Y"THEN LOCATE 9,1: INPUT" WIDTH ";CX:LOCATE 9,40:INPUT" LENGTH ";WX: 
FOR DL=1 TO 600: NEXT 
1690 IF AN?="6" THEN 2310 

1700 LOCATE 9,1: PRINT STRING$( 80, "_");: LOCATE 10,1: PRINT SPACE? (40) : LOCATE 10,1: 
PRINT" COST PER SQ. YARD”;: INPUT YC:GOSUB 1800 
1710 PRINT" CARPETING CALCULATION:" 

1720 PRINT" YOU WILL NEED APPROX."; 

1730 CC=(WM*LM)+(AW*AL)+(BW*BL) - (CW*CL) - (CX*WX) : YD-INT(CC/9) 

1740 PRINT YD;" SQ.YDS OF CARPET." 

1750 PRINT" YOUR COST WILL BE ABOUT ...";: CS=YC*YD : PRINT USING"?#,###.##" ;CS • PRIN 
T" FOR THE " ;RM$ 

1760 PRINT" PRINT THIS? <Y/N>" 

1770 OG$=INKEY$ : IF OG$=""THEN 1770 

1780 IF OG?="Y" OR OG?="y" THEN GOSUB 2830 

1790 RUN 280 

1800 PLAY"O3V15L64T150CDE" 

1810 RETURN 

1820 PLAY"O3V15L64T150EDC" 

1830 RETURN 

1840 PLAY"03V15L16C" 

1850 RETURN 
1860 ' 

1870 '*** CONCRETE POURING HERE *** 

1880 ' 

1890 COLOR 0,3: CLS 

1900 PRINT STRING? (80, "*"): LOCATE 2 , 30 : PRINT" CONCRETE VOL. MEASURE" 

1910 LOCATE 3,1: PRINT STRING? (80 , "*") ; 

1920 PRINT" FOR CONCRETE MEASUREMENT YOU CAN FIRST OBTAIN THE HEIGHT, WIDTH AND DE 
PTH OF THE MAJOR PART OF THE PROJECT. THEN WE CAN 'ADD- ON' THE OTHER AREAS AS R 
EQUIRED OR TAKE-OFF . " 

1930 LINE (3 50 , 120) - (600 ,120) , 3 : LINE- (550 , 140) , 3 : LINE- (300 , 140) , 3 : LINE- (350 , 120) , 

1940 LINE- (350, 150), 3: LINE- (600, 150), 3: LINE- (600, 120), 3: LINE(600, 150) -(550, 170) 

3 : LINE- ( 300 ,170) , 3 : LINE- (300 , 140) , 3 : LINE (300, 170) - (350, 150) , 3 : LINE (550 ,170)-(550 
. 1^0) , 3 

1950 PAINT(500, 160) ,2,3: PAINT(556 , 162) , 2 , 3 
1960 LOCATE 15 , 48 : PRINT"Sample Concrete Pour" 

1970 W5?=CHR?(27)+" LENGTH ”+CHR?(26) :W6?=CHR?(27) + "HEIGHT"+CHR?(27'i 
1980 LOCATE 2 3, 48: PRINT W5? 
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Discover a Whole 
New World of TV 
Entertainment! 


Factory 

Authorized 


User Installable! Over 100 Channels! 
^ Uncut Movies! Specials! Sports! 
News! Weather! Music Videos! 


Entire 

System 


a Totally Automatic System With 10V2-Ft. 

Dish, Receiver and Wireless Remote Control 

■ Comes With All Accessories Needed for 
Complete Do-it- Yourself Installation 

■ Descrambler Ready 


U.L. 

Approved 


Handy Wireless Remote Lets You Change 
Channels, Control Volume and Fine-Tune 


grams, plus music videos, FM broadcasts and movies 
with provision for stereo, and 24-hour news coverage 
on both TV and radio. It all adds up to out-of-this-world 
TV viewing at a down-to-earth price. Come in today and 
discover how easy it is to enjoy satellite programming! 
Includes complete installation manual. 


Now you can enjoy it all! 24-hour non-stop entertain- 
ment that you simply can’t get from local TV, cable, and 
even video tape! You’ll see the hottest stars, recent un- 
cut and uninterrupted movies, the ultimate in sports 
coverage — and the best part is, there are no monthly 
fees to pay. You’ll see exciting family-oriented pro- 


Radio /hack 



(817) 825-4027 

NOCONA ELECTRONICS • Box 593 • Nocona, TX 76255 


UPS Shipping 

A RADIO SHACK DEALER 






199(21 FOR LT=15 TO 22:LOCATE LT,37:PRINT MID$ (W6$ ,LT- 14 , 1) ; :NEXT LT 
2000 LINE (620 ,155)-(57(2(,175),4: LOCATE 21,73: PRINT"WIDTH" 

2010 LOCATE 9,1 

2020 PRINT" ENTER ALL MEASUREMENTS AS ’FEET' AND THEN REMAINING AS ’INCHES'." 

2(33(21 LOCATE 1(21 , 1 : INPUT" WIDTH FT. " ;WF: LOCATE 1(21 , 3(21 : INPUT"WIDTH + IN.";WI 
2(34(21 LOCATE 11,1: INPUT" LENGTH FT ."; LF : LOCATE 11 , 3(3: INPUT "LENTH + IN."; LI 
2(35(3 LOCATE 12,1:INPUT" HEIGHT (OR DEPTH) FT HF : LOCATE 12 , 3(3 : INPUT"HEIGHT + IN. 
" ; HI 

2060 FOR WIPE— 10 TO 13:LOCATE WIPE,1:PRINT SPACE$(80) :NEXT 
2070 MSQ=((WF*12)+WI)*((LF*12)+LI)*((HF*12)+HI) 

2080 LOCATE 10,1: INPUT" ANY ADD-ON AREAS (Y/N)";AO$ 

2090 IF AO$="Y"THEN 2230 ELSE 2110 

2100 FOR WIPE-10 TO 13 : LOCATE WIPE, 1: PRINT SPACE$ (80) : NEXT 
2110 FOR WIPE-10 TO 13 : LOCATE WIPE, 1: PRINT SPACE$(80) :NEXT 
2120 LOCATE 10,1: INPUT" ANY TAKE-OFF AREA'S (Y/N)";TU$ 

2130 IF TU$="Y"THEN 2270 ELSE 2140 
2140 VCU-MSQ/46656! 

2150 FOR DL— 1 TO 300:NEXT:FOR WIPE-10 TO 13:LOCATE WIPE, 1: PRINT SPACE$(80) :NEXT: 
LOCATE 10,1 

2160 PRINT " TO COMPLETE PROJECT YOU WILL USE APPROXIMATLEY" ;: PRINT USING"###.#" 
; VCU; : PRINT" CU.YDS OF CONCRETE." 

2170 PRINT" PRINT THIS? <Y/N>" 

2180 A$=INKEY$ : IF A$=" "THEN 2180 

2190 IF A$— "Y"OR A$="y" THEN GOSUB 2950 

2220 RUN 280 

2230 LOCATE 11,1: INPUT" WIDTH FT AW : LOCATE 11, 30: INPUT" WIDTH IN . " ;AK: LOCATE 1 
2,1: INPUT" LENGTH FT AL : LOCATE 12,30:INPUT" LENGTH IN AI : LOCATE 13,1: INPUT" 
HEIGHT FT. AH: LOCATE 13, 30: INPUT" HEIGHT IN.";AJ 
2240 ACU=((AW*12)+AK)*((AL*12)+AI)*((AH*12)+AJ) 

2250 MSQ— MSQ+ACU 

2260 FOR DL— 1 TO 500: NEXT: GOTO 2110 

2270 LOCATE 11,1: INPUT" WIDTH FT TW : LOCATE 11, 32: INPUT" WIDTH IN TX : LOCATE 1 
2,1: INPUT" LENGTH FT. " ;TL: LOCATE 12, 30: INPUT" LENGTH IN TY : LOCATE 13,1: INPUT" 
HEIGHT FT. ";TH: LOCATE 13, 30: INPUT" HEIGHT IN.";TZ 
2280 TCU— ( (TW*12)+TX)*( (TL*12)+TY)*( (TH*12)+TZ) 

2290 MSQ— MSQ -TCU 
2300 GOTO 2140 

2310 FOR WIPE-7 TO 13: LOCATE WIPE, 1: PRINT SPACE$ ( 80) ;: NEXT: LOCATE 7,1: PRINT" TIL 
E CALCULATIONS : " 

2320 PRINT" ARE YOU USING 9 OR 12 INCH TILES (9 or 12)"; 

2330 INPUT TL$ 

2340 IF TL$="9"OR TL$="12"THEN 2350 ELSE 2330 
2350 TL-VAL(TL$) 

2360 GOSUB 2430 : W4-INT ( CW/TL) : L4=INT(CL/TL) : W5=INT(CX/TL) : L5=INT(WX/TL) 

2370 TN~(W1*L1) : IF A1$="Y" THEN TN=TN+(W2*L2) : IF A2$="Y"THEN TN-TN+(W3*L3) 

2380 IF A3$— "Y" THEN TN-TN- (W4*L4) : IF A4$="Y" THEN TN-TN- (W5*L5) 

2390 PRINT" YOU WILL NEED " ; INT(TN)+1 ; " TILES 
2400 PRINT" PRINT THIS? (Y/N)" 

2410 A$=INKEY$ : IF A$=" "THEN 2410 

2420 IF A$— "Y" OR A$="y" THEN 3030 ELSE RUN 280 

2430 IF WM/TLOINT ( WM/TL) THEN W1=INT(WM/TL)+1 ELSE Wl-WM/TL 

2440 IF LM/TLOINT (LM/TL) THEN L1=INT(LM/TL)+1 ELSE Ll-WM/TL 

2450 IF AW/TLOINT ( AW/TL) THEN W2=INT(AW/TL)+1 ELSE W2-AW/TL 

2460 IF AL/TLOINT ( AL/TL) THEN L2=INT(AL/TL)+1 ELSE L2-AL/TL 

2470 IF BW/TLOINT ( BW/TL) THEN W3=INT(BW/TL)+1 ELSE W3-BW/TL 

2480 IF BL/TLOINT(BL/TL)THEN L3=INT(BL/TL)+1 ELSE L3-BL/TL 

2490 RETURN 

2500 ' 
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2510 '*** PRINTOUT HEADING *** 

2520 • 

2530 LPRINT STRING$ (5 , 13) : LPRINT TAB(5)STRING$(70, "*") :LPRINT TAB(5)STRING$(70, " 
*") :LPRINT : LPRINT TAB(32)"* HAND I 1000 *":LPRINT : LPRINT TAB(33)"JOB ESTIMATE" 
2540 LPRINT :FOR ZV-1 TO 2:LPRINT TAB(5)STRING$ (70 ,"*"): NEXT 
2550 LPRINT : LPRINT : RETURN 
2560 ' 

2570 '*** PANELING PRINTOUT ESTIMATE *** 

2580 ' 

2590 GOSUB 2530 

2600 LPRINT TAB (20)" PANELING CALCULATIONS: "+RM$ : LPRINT 

2610 GOSUB 3090 

2620 LPRINT TAB(20) "TOTAL SHEETS NEEDED: ";:LPRINT USING "###.#" ;NP 

2630 RETURN 
2640 ' 

2650 ’*** PAINTING ESTIMATE PRINTOUT *** 

2660 1 

2670 GOSUB 2530 : LPRINT TAB (20) "PAINTING CALCULATIONS: "RM$ : LPRINT 

2680 GOSUB 3090 

2690 LPRINT TAB(20) "COST OF PAINT: "+"$"+CG$+" PER GALLON" : LPRINT TAB(20) "APPLYI 
NG "+NC$+" COATS" : IF A$="Y" THEN CO$="CEILING INCLUDED" ELSE CO$="CEILING NOT IN 
CLUDED" 

2700 LPRINT TAB ( 20 )CO$: LPRINT TAB (20) "SPREAD RATE: " FG$" SQ. FT PE GALLON" : LPRIN 
T : LPRINT TAB(20)"YOU WILL NEED ";:LPRINT USING"###.#" ;GN; : LPRINT " GALLONS" :LPR 
INT TAB (20) "APPROXIMATE COST: "; :LPRINT USING "$####.##" ;CP 
2710 RETURN 
2720 ' 

2730 ’*** WALPAPER JOB ESTIMATE PRINTOUT *** 

2740 ' 

2750 GOSUB 2530: LPRINT TAB (20) "WALLPAPER CALCULATION: "+RM$: LPRINT : IF SS$="Y" T 
HEN S1$="SINGLE SIZE ROLL" ELSE IF SS$="N" THEN Sl$="DOUBLE SIZE ROLLS" 

2760 LPRINT TAB ( 20) Sl$ : LPRINT TAB(20)"WALL HEIGHT: "HW" FEET" : LPRINT TAB(20)NW"WA 
LLS "VAL(WA$ ) " FEET LONG" : LPRINT TAB(20)SB"WALLS "VAL(WB$)" FEET -LONG" 

2770 LPRINT TAB(20)NZ "WINDOWS" : LPRINT TAB(20)ND "DOORS" : LPRINT TAB(20)"COST PER 
ROLL : " ; : LPRINT USING" $### . ## " ; CR : LPRINT 

2780 LPRINT TAB (20) "YOU WILL NEED ";RO;" ROLLS ": LPRINT TAB (20) "YOUR COST: " ;:LPR 
INT USING" $###.##" ;CR*RO: LPRINT STRING$ (5 , 13) 

2790 RETURN 
2800 ' 

2810 '*** CARPETING ESTIMATE PRINTOUT *** 

2820 ’ 

2830 GOSUB 2530: LPRINT TAB (20) "CARPETING CALCULATION: ”+RM$ 

2840 LPRINT : LPRINT TAB(20)"MAIN AREA "WM" BY "LM" FEET" 

2850 IF A1$<>"Y" THEN 2870 

2860 LPRINT TAB(20)"ONE ADD-ON "AW” BY "AL" FEET": IF A2$="Y" THEN LPRINT TAB(20) 
"OTHER ADD-ONS "BW" BY "BL" FEET" 

2870 IF A3$0"Y" THEN 2890 

2880 LPRINT TAB(20)"ONE CUTOUT "CW" BY "CL" FEET": IF A4$="Y" THEN LPRINT TAB(20) 
"OTHER CUTOUTS "CX" BY "WX" FEET" 

2890 LPRINT TAB(20)"COST PER SQ/YD" LPRINT USING" $###.##" ;YC 

2900 LPRINT : LPRINT TAB(20)"YOU WILL NEED "YD" SQUARE YARDS ": LPRINT TAB(20) "TOTAL 
COST: " ; : LPRINT USING"$#,###. ##" ; CS : LPRINT STRING$(5 , 13) 

2910 RETURN 
2920 ' 

2930 ' *** CONCRETE JOB ESTIMATE PRINTOUT *** 

2940 ' 

2950 GOSUB 2530 : LPRINT TAB (20) "CONCRETE ESTIMATE" : LPRINT : LPRINT TAB(20) »*****MA 
IN AREA*****" : LPRINT : LPRINT TAB(20) "WIDTH"WF" FEET"WI" INCHES" : LPRINT TAB(20)"L 
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ENGTH" LF" FEET "LI" INCHES LPRINT TAB (2(2) "DEPTH"HF" FEET"HI" INCHES" :LPRINT 
296(21 IF AO$="Y" THEN LPjRINT TAB ( 2(3) »*****ADD - ONS****$jf : LPRINT : LPRINT TAB(2(2)"WI 
DTH"AW" FEET"AK" INCHES" : LPRINT TAB ( 2(2) "LENGTH "AL" FEET"AI" INCHES" : LPRINT TAB (2 
(21) "DEPTH "AH" FEET"AJ" INCHES" : LPRINT 

297(2J IF TU$="Y" THEN LPRINT TAB ( 2(3) " ******CUTOUTS***** " : LPRINT : LPRINT TAB(2(2)"W 
IDTH"TW" FEET"TX" INCHES" : LPRINT TAB(2(2) "LENGTH"TL" FEET" TY" INCHES" : LPRINT TAB( 

2(2) "DEPTH"TH" FEET"TZ" INCHES" : LPRINT 

298(2 LPRINT TAB (2 (2) "TOTAL CUBIC YARDS REQUIRED: ”;:LPRINT USING"### .##" ;VCU 
299(2 RUN 28(2 
3 (2(2(2 • 

3(21(2 '*** TILING A FLOOR ESTIMATE PRINTOUT *** 

3(22(2 ' 

3(23(2 GOSUB 253(2 : LPRINT -TAB(2(3) "FLOOR TILE CALCULATIONS: "+RM$ : LPRINT 
3(24(2 LPRINT TAB(20)"MAIN AREA "WM"BY "LH" INCHES" 

3(25(2 IF Al$”"Y" THEN LPRINT TAB(2(2)"ONE ADD -ON "AW" BY"AL" INCHES": IF A2$="Y”THEN 
LPRINT TAB (2(2) "OTHER ADD-ONS"BW" BY"BL" INCHES" 

3(26(2 IF A3$— "Y" THEN LPRINT TAB (2(2) "ONE CUTOUT"CW” BY "CL" INCHES": IF A4$="Y" TH 
EN LPRINT TAB (2 (2) "OTHER CUTOUTS"CX" BY"WX" INCHES" 

3(27(2 LPRINT TAB(2J2)"BY USING"TL" INCH TILES- ": LPRINT TAB(2(2)"YOU WILL NEED " ; INT 
(TN+1) ; " TILES" 

3(28(2 RUN 28(2 . • / - • . . If . 

3(29(2 LPRINT TAB(2(2) "WALL HEIGHT: "+HA$+" FEET "+HB$+" INCHES " : LPRINT TAB(2(2) AZ 
; : LPRINT" WALLS "+WF$+" FEET "+WI$+" INCHES " : LPRINT TAB(2(2) AX ;: LPRINT" WALLS " 
+WG$+" FEET "+WJ$+" INCHES " 

31(2(2 LPRINT TAB(2(2)WN" REGULAR WINDOWS" : LPRINT TAB(2(2)OQ" PICTURE WINDOWS" : LPRIN 
T TAB (2(2) DR" DOORS" 

311(2 LPRINT : RETURN 
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City 


State 


ZIP . 


My check in the amount of - 


is enclosed. (In order to hold down costs, we do not bill.) 

Charge to: □ VISA □ MasterCard □ American Express 


Account Number 


Expiration Date . 


THE PERFECT HOLIDAY GIFT WRAPPING 

Do yourself and your pcm friends a favor! Protect and 
showcase a valuable resource — each and every issue of 
pcm — with high-quality, brown-vinyl binders embossed 
with the magazine’s name in gold lettering. 


Spend more time enjoying your Tandy and less on 
frustrating searches for misplaced issues! 

These handsome binders hold a full 12 issues of pcm and 
cost just $7.50, plus $2.50 for shipping and handling. 

SAVE! Buy four or more back issues of pcm with this order 
and save $1 per issue. Use back issue form on Page 87. 

Order your pcm binders and back issues today! 

YES. Please send me Li sets of binders at $7.50 each (plus $2.50 shipping and handling for each binder ordered). 

If your order is to be sent via U.S. Mail to a post office box or to another country, please add $2. Kentucky residents 
add 5 percent sales tax. 

I also want to take advantage of the special savings of $1 off the single issue cover price for back issues with the 
purchase of a binder. (An order form from a recent issue indicating the back issues you wish to receive should accompany 
this order.) 


DISTINCTIVE AND DURABLE 
PCM BINDERS 


Signature 

Mail to: PCM Binders, The Falsoft Building, P.O. Box 385, Prospect, KY 40059. 


PCM 
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BASIC Bytes 


A Brief Survey of Basic 
Spreadsheet Functions 


A spreadsheet contains a variety of predefined math- 
ematical formulas called functions. These are built- 
in operations that can quickly perform a task that 
would otherwise take much longer or which might not be 
able to be performed at all. In many instances, functions 
also save memory space since they remove the need to type 
in long formulas. 

A widely used statistical function is @SUM( x. . .y). It 
simply adds up all the numbers in a row, column or block. 
The form shown is from VisiCalc and Lotus 1-2-3. For the 
discussion below, I will use Lotus syntax. Your spreadsheet 
may use a somewhat different form, but will work much 
the same way. Simpler spreadsheets may not contain all the 
functions discussed, but quite a few are now common to 
most spreadsheets. 

The “at” symbol (@) serves to distinguish the function 
from a normal label entry. The characters within the 
parentheses form the argument of the function. An 
argument is information that a function needs in order to 
perform its task. In @SUM(jc. . . y ) the argument is the cell 
or cells that are to be added together. 

@SUI1(CG. . .025) Compute the sum of the values in 
cells C6 to C25. 

It does not matter in 1-2-3 whether the values have been 
directly entered or have been calculated by some other 
formula or function. 1-2-3 does natural recalculation. This 
means that it determines which cells need to be evaluated 
to produce values for functions or formulas in other cells 
to use. It then calculates these first. 

Most other spreadsheets are not so kind. They will use 
a calculated value from another cell in a formula or 
function, but do not make sure it is properly calculated first. 
As long as you know this can happen, you can handle the 


(Richard White has a long background with microcompu- 
ters and specializes in BASIC programming. He has authored 
numerous programs and articles. His work has appeared in 
PC M’s sister publication, THE RAINBOW.) 

36 pcm 


By Richard A. White 
PCM Contributing Editor 

matter yourself by doing a number of manual recalculations 
to assure that all formulas and functions are using properly 
calculated values. 

Many functions perform on a range of values. In some 
spreadsheets, some functions can handle a block as a range, 
while the same function in other spreadsheets cannot. 1-2- 
3 handles blocks as I have shown for those functions that 
accept them. Experiment with your spreadsheet to see what 
it can do. 


Figure I: Sample Spreadsheet and Formulas. 
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The more I dug into ways to specify the argument for 
@5UM ( ) and other statistical functions, the more hidden 
power I found. In Figure 1, I show a simple example with 
numbers in cells A1 . . . B3 and the results of some 
calculations. The formula dump is shown below. In Cell A5 
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is a simple summation of the row A1 . . . A3. In Cell B5, 
the summation is taken over the block A1 . . . B3. 

In cells A7 and A9, we see that the functions can accept 
a series of ranges and single cells in the argument. This can 
open all sorts of possibilities in that it starts to free you from 
having to think about how you are going to organize your 
spreadsheet in order to simply perform one of these 
functions at the end. You still need to organize the 
spreadsheet logically so you and others can easily under- 
stand it and its results when it’s done. 

BSUM(fll. . .R3,B1. . .B3,R7) 

Note that each range or cell citation is separated by a 
comma. In addition to being somewhat faster, @5UM ( ) and 
the other range functions are more adaptable to changes 
made in the spreadsheet. Figure 2 shows Column A added 
using a straight cell addition formula. Column B uses 
@SUM( ). 


Figure 2: Spreadsheet Using Cell Addition and @SUM( ) 
Before Row is Deleted 



Figure 3: Spreadsheet Using Cell Addition and @SUM( ) 
After Row 2 is Deleted. 




wfimim 


[ A 3C E 3 
2 - 3 6 
4- +A1+ERR+A2 aSUMCBi . . . B2) 


When Row 2 is deleted the spreadsheet tries to adjust the 
formulas. In the case of @SUM( ) it can, since the missing 
cell was within the defined range, which is simply shortened 
by changing B3 to B2. The addition formula always has 
three cell entries. The spreadsheet was able to adjust A3 to 
A2, but it cannot make the old A2 entry go away. ERR is 
entered in its place and will be displayed when the sheet is 
recalculated. 

Of course a range function is not totally forgiving. If you 
delete the start or end cell of the range, ERR will be 
substituted. Let’s now see what happens when we go the 
other way and insert a row and add data to it. 


Figure 4: Spreadsheet Using Cell Addition and BSUM( ) 
After a Row of Data is Added. 
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24 K Expansion RAM 

For the Model 200 
$125. each $240. for two 



8K Expansion RAM 

For the Model 1 00 & 8201 


$27. 


each 


$75. 


package of 3 



These Modules are easily user installable 
and they feature: 

• Low Power CMOS Static RAM • Instructions Include 

• 30 Day Satisfaction Full Refund Policy Test Program Listing 

• High Quality Sockets • One Year Warranty 


M/C, VISA, Check or Money Order 

Shipping-Add $1 .50 UPS Ground 
or $4.00 2nd Day Air. 

CA Residents add 6% Sales Tax 



Cryptronics, Inc. 

11711 Coley River Circle, Suite 7 
Fountain Valley, CA 92708 
Phone: (714) 540-1174 


November 1985 


pcm 37 


The 

Accessible 

Computer 

Experts 




HARDWARE SPECIALS 

Extended Basic w/bk 

$ 39.95 

64K (DEI) Memory Upg 

S 49.95 

HJL Keyboard (D.E.F.2) 

$ 79.95 

26-3129 Coco Drive 

S 275.95 

26-1161 Coco Drive 1 

S 179.95 

26-3127 64 K Extended Coco 2 

S CALL 

26-3124 Multi-Pac Interface 

$ 89.95 

NAP Video Monitor (Grn Amber) $ 109.95 

Video Monitor Adapters 

$ 34.95 

Botek Ser/Par Interface 

$ 69.95 

26-3802 Model 100 24K 

$ CALL 

26-381 6P 8K Upgrade Model 100 

$ 55.95 

26-3860 Model 200 

$ 849.95 

26-1276 DM P-1 05 Printer 80 cps 

$ 179.95 

26-1278 DWP 220 Printer $ 

539.95 

25-1000 Tandy 1000 2-drive 

S 899.95 

DEI T1000 HD 

$1,699.95 

25-1011 Memory plus board 

$ 269.95 

MSI SOFTWARE 


MSI DISKUTIL NEW 

S 19.95 

COLOR FINANCE II NEW 

$ 69.95 

MSI NAMEFILE 

$ 24.95 

MSI CALENDAR NEW 

$ 19.95 

MSI COLOR PAYROLL NEW 

$ 99.95 

COLOR FINANCE 4 

$ 69.95 


ACCESSORIES 


Volksmodem 1200 
RS D.C. Modem IB 
Novation J-Cat Modem 
USR Password 300 
Hayes SM 300 Modem 
USR Password 1200 
USR Password 2400 
CoCo Switcher 
Elephant Disks ssdd 
Mach II Joystick 
26-3030 OS-9 (64k) 
Basic-09 (req. OS-9) 
"C” Compiler (OS-9) 
FHLO-Pak (req. OS-9) 
Eite Word 
Elite Calc 
Color Term Plus 
Deft Pascal 

26-3012 Deluxe Joystick 


$299.95 
$ 89.95 
$129.95 
$179.95 
$239.95 
$399.95 
$599.95 
$ 39.95 
$ 18.95 
$ 39.95 

64.95 (disk) 

87.95 (disk) 

87.95 (disk) 

34.95 (disk) 

59.95 (d&c) 
59.95 (d&c) 

$ 29.95 (cass) 
S 79.95 
$ 34.95 


NEW! Dual Double Sides Drives including 
case, power supply & cable $375.95 

NEW! 26-3128 64K 

Direct Video CoCo2 $219.95 


TRS-80 Trademark Tandy Corporation. 
Prices subject to change without notice 
Write for our FREE newsletter. 




Call for prices and availability of 
your favorite software and 
hardware. All advertised items 
subject to availability. Prices do 
not include shipping and handling. All 
of the above units are covered by our 
120 day carry-in warranty. 

DELKER ELECTRONICS, INC. 

P.0. Box 897 408 C Nissan Blvd. 
Smyrna, TN 37167 


■ 800-251-5008 

■ 615-459-2636 


(Tennessee) 

■ 800-545-2502 

■ 615-254-0088 

(Tennessee) 

(Nashville) 


Visa, Mastercard and American Express 


In the addition formula, the A3 reference was changed 
to A4. The result returned in A6 remains 6. @5UM( ) 
includes the new row and its data in its calculation and puts 
115 into B6 rather than 15. In most instances, the reason 
you added columns or rows was to make room for a larger 
range of data, and you expect to have the added figures 
included in the calculation. When you use a range function 
and make sure that the new rows or columns are between 
the start and end cells, you are automatically taken care of. 


Figure 5: Preferred Way to Define a Range for @SUM( ). 



Figure 5 shows a better way to define ranges for the 
@SUM ( ) function. Be careful, since it is the wrong way to 
describe a range to other functions. I inserted a row at the 
beginning of the sheet and have shown column headings. 
I left the formula now in A7 alone to show how the sheet 
will adjust formulas. I changed the range of (?SUM( ) to 
include both the cell containing the heading and the cell 
containing the dashed line indicating a summation. B1 and 
B6 have math values of zero and will not affect the 
summation. If you add extra lines for data, you are most 
likely to add them below the heading or above the dashed 
line and will always have your new lines within the range. 

@COUNT ( ) is another range function. @COUNT ( ) counts 
only those cells that have a mathamatical value including 
a zero. @COUNT ( ) ignores all blank cells, but considers all 
cells containing labels as containing zero and counts them. 
Given this, the better way to describe a range to @SUM is 
the wrong way to describe the range for (5COUNT ( ) in 1- 
2-3 , unless you really want to count cells containing labels. 
I rather doubt that you will. We can make the point stronger 
with @RVG ( ) that works the same as @COUNT ( ) . You don’t 
really want a header, valued as a zero, included in your 
average. (?MAX( ) and @MIN( ) work the same way. 

Those with other spreadsheets, including VisiCalc, must 
check exactly how their particular sheet works. @CDUNT ( ) , 
^AVERAGE ( ), @NAX( ) and @MIN( ) in DynaCalc on my 
Color Computer are able to ignore labeled cells within a 
range where the same functions on 1-2-3 cannot. And, many 
times, documentation with programs is either silent on the 
subject or whatever mention there is is buried in an 
avalanche of detail. The best way to know is to fire up your 
spreadsheet and do some testing. 

@C0UNT ( ) has one other feature (read maybe bug) that 
you should know about. @C0UNT ( A1 ) will return a one even 
if A1 is blank. Further, any @C0UNT ( ) function whose 
argument contains a single cell reference will return at least 
a one. Assume that cells A1 . . . B2 are all empty. Following 
are a number of @C0UNT ( ) functions and how they react. 

@C0UNT(A1) = 1 
@C0UNT(A1. . - A2) = 0 
@C0UNT(A1. . .A2,B1) = 1 
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This apparently is not a bug since DynaCalc on my Color 
Computer works in an identical fashion. However, I am 
hard pressed to tell you what value this “feature” has. 

One final 1-2-3 “feature” is that @AVG( ) returns an ERR 
if the range consists entirely of blank ceils. I am of mixed 
mind on this. If other cells in the spreadsheet depend on 
this average, it might be worthwhile to flag the lack of data. 
DynaCalc returns a zero, which may not be worth much, 
but which may not be as upsetting to the operator. 

For those who need to calculate statistics, many spread- 
sheets can calculate the variance, VRR [list) and standard 
deviation STD (to) for a set of data. I will presume that 
those who are familiar with these statistical functions and 
who need to use them will be able to figure out how to use 
them. If you are not familiar with them, you either don’t 
need them or need far more training than I can give in the 
column. 

The financial functions built into a spreadsheet generally 
deal with the time value of money. Many larger businesses 
use the time value of money to select their investments. The 
idea is that there are always more ways to spend money than 
there is money to spend. There need to be ways to compare 
various investments and to choose the best ones from a 
current prospective. One of the problems is the cash flow 
each year that an investment may generate varies with time. 

Let’s consider a fictional company that makes “Whatits” 
and “Thatits.” $400,000 is available for investment this year 
and the Whatits and Thatits division managers have been 
asked to submit plans for that amount of investment in one 
or the other of the divisions. The investment plans will 
include estimates of the annual savings and revenue each 
investment will produce. The company wants at least a 15 
percent discounted rate of return. We will see what that 
means later. 

Whatits and Thatits are two very different businesses. 
Whatits division has to buy some parts from the outside now 
and investment now would save growing amounts over the 
next few years, stabilizing five to six years out at $150,000 
annual savings after taxes. 

Thatits is booming and a $400,000 investment this year 


Figure 6: A Project Return Analysis Spreadsheet. 
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will produce $200,000 after tax revenue next year. But, 
competition is coming and Thatits is sort of a trendy item. 
The company cannot count on being in the business seven 
or eight years from now. 

An entrepreneur will typically make a gut feeling decision 
on the data. In this case neither decision will lead to 
bankruptcy. On a cash flow basis, one is better than the 
other and should maximize company profit and strength. 
1-2-3 ’ s @NPV ( ) is a tool to make the choice. Figure 6 shows 
the spreadsheet. 

Project 1 and Project 2 represent the respective proposals 
of the Whatits and Thatits division managers. Each 
proposes to invest $400,000 this year. Project 1 returns 
much more cash to the company over 10 years, but much 
of the return comes in later years. Project 2 returns lots of 
cash in the early years and then peters out. A primary 
question is which project has the greatest net present value. 
Cells in row 21 contain a @NPV( ) function. The one in B21 
reads: 

@NPV( . 15 , B0 . . .B17) 

Cells C21 and D21 have similar formulas adjusted for 
their column positions. One way to look at @NPV( ) is that 
the current value of money earned in the future is reduced 
by the compounded interest that amount of money would 
earn between then and now. If I put $1,000 in the bank, 
two years from now I have the $1,000 plus earned interest. 
If I invest $1,000 now, earn no interest over the next two 
years and the get back $1,100, I will probably have less 
money at that time than if I had put the money into the 
bank. The net present value of the money investment is less 
than that put into the bank to draw interest in the CD. 

So the first argument in @NPV( ) is the interest rate or 
the rate I expect or need to be returned on the capital I 
invest. Rate of return for short. It is entered as a decimal 
number though we talk about 15 percent interest. The next 
argument specifies the range over which @NPV( ) works. 

There is one “big watchout” when you use (?NPV ( ) . The 
first entry in the range must apply to the first interest period. 
Each succeeding entry must pertain to a succeeding period. 
The periods must be equal. For most applications, use an 
annual interest rate or rate of return, entered as a decimal 
number rather than a percentage, and have your periods be 
years. 

Now we can see differences between the two projects. 
Project 1 has a larger total return, but Project 2’s net present 
value is better. A more sophisticated analysis would show 
that Project 2 would pay back its capital investment much 
sooner, making more money available earlier for other 
investments. And who can say that the Whatits business will 
really be as projected five years out. Certainly the projection 
of Thatits return over the next two years is on much firmer 
ground. 

On the basis of the spreadsheet, the company should 
invest in Thatits now while they address what to do about 
the Whatits business. There is some time to act there while 
there isn’t in the Thatits business. 

One option is to invest the $400,000 three years from now 
when Whatits savings start to peak. The net present value 
of that approach is only $260,000, but the net present value 
of the investment three years out is also about $260,000. The 
company can afford to wait and still meet their investment 
objectives. 
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Changes your Model 100 into a totally different 
computer with capability you never thought possible 



Infoworld 
rated Lucid’s 
performance 
“excellent” 


on Snap-In™ ROM 



PCSG says “Satisfaction Guaranteed 
or your money back within 30 days!” 


LUCID® is here now. It is on a ROM car- 
tridge that snaps into the compartment on 
the back of your Model 100. It takes no 
memory to load and no memory for operat- 
ing overhead. That means you have the full 
29.6k bytes free to store your data. 

First, LUCID® is memory conserving. It 
will let you build a large spreadsheet -255 
row by 126 column capacity. You build huge 
spreadsheets in your Model 100’s RAM that 
could consume 80 to 100K on a desktop 
computer. 

Secondly, LUCID® is fast. LUCID® is so 
rapid, a 36 column corporate financial 
statement took less than 4 seconds to 
calculate. 

Thirdly, LUCID® has features you won’t 
find in most other spreadsheets. For ex- 
ample, when you type a label (text) it will 
cross column boundaries; in other words 
when you type a label or title it will appear 
as you type it irrespective of column or 
width. LUCID® also allows you to set col- 
umn widths individually, and of course 
LUCID® has insert row and insert columns, 
as well as other standard features. LUCID® 
even lets your formulas refer to cells in 
other spreadsheet files. 

Further, LUCID® has what no other 
spreadsheet has: Cut, Copy, and Paste. It 
uses the same keys as Cut and Paste in 
TEXT, but here’s the difference: it takes all 
the formulas with it when you paste and 
they all automatically recalculate with the 
entire sheet. 

And here is what is really amazing. You 
can copy or cut from one spreadsheet and 
paste into another spreadsheet or even a 
TEXT file. 

LUCID®supports all BASIC math func- 
tions as well as Log, sine, cosine, tangent, 
exponentiation and other sophisticated 
math functions. 

LUCID® has so many features that you 
will say “this is what I need in a spread- 
sheet”, such as automatic prompting of an 
incorrectly typed-in formula showing just 
where the mistake was made. 


LUCID® has expanded “go to” functions 
that remember and produce a windowing 
capability. 

But perhaps most remarkable is that 
LUCID® is not only a spreadsheet but a 
program generator as well. First, LUCID® 
lets you protect all cells against entry or 
change, and then unprotect just the cells 
you want for someone else to use as 
input fields. 

LUCID® will not only process values, but 
text input as well so that the facts other than 
numbers can be responded to. LUCID® has 
the ability for you to refer in a formula to 
cells containing words. This feature com- 
bines with the capacity of doing “if then” 
statements that work by doing table look- 
ups against even massive X/Y charts of text 
or numerical information. You can produce 
a program that responds to inputs with no 
programming knowledge whatsoever. 

You can prepare a report section in your 
spreadsheet with instructions to your user 
for printout, and they can produce a person- 
alized printout that responds to their input. 
All your formulas and tables that did the 
calculations and provided the facts are in- 
visible to that user. LUCID® is useful for 
doctors for patient questionnaires, trouble- 
shooting technicians, purchase clerks, 
people doing job quotes, stores for custom- 
er workups, insurance agents and anybody 
who needs to process specific facts and 
numbers to produce a report based on 
those responses. 

LUCID® comes with a manual that ex- 
plains not only the characteristics of 
LUCID®, but will train you how to use a 
spreadsheet even if you have never seen 
one before. You are shown how to do 
budgets, forecasts, breakeven analysis 
amortizations and many other types 
of personal and business reports and 
calculations. 

User friendly is such an over-used term in 
this industry, but a typical comment has 
been “I have never seen a spreadsheet that 
does so much, and yet LUCID® is so much 


easier and faster to use.” 

LUCID® is a result of a most exhaustive 
developmental effort in which PCSG’s 
objective was to develop a spreadsheet 
that was better than the state-of-the-art. We 
are so pleased because LUCID® provides 
for the Model 100 spreadsheet capability 
you cannot equal on a desktop computer. 

LUCID® is, in our opinion and that of 
those who have examined it, a break- 
through. We sell it on a 30 day trial. If you 
are not completely satisfied, return it within 
30 days for a full refund. Priced at $99, on 
snap-in ROM. MasterCard, Visa or COD. 

© PCSG 1984 
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Subroutine City 


1000 / 1200/2000 


Access BIOS to scan the keyboard, 

control windows, and more — all from BASIC 


A Potpourri of 
BIOS Goodies 


I n the last few months, I have de- 
scribed quite a few subroutines that 
allow GW-BASlC to access features in 
MS-DOS that are normally only acces- 
sible from the DOS command level or 
other languages. 

This month, I will conclude this mini- 
series on the MS-DOS access subrou- 
tine by describing a few remaining 
subroutines that use MS-DOS’s BIOS. 

Keyboard Subroutines 

Lines 21000 through 23000 of Pro- 
gram 1 contain three subroutines that 
access MS-DOS’s keyboard BIOS. 

The subroutine starting at Line 
21000, scans the keyboard somewhat 
like BASIC’s INKEYS function. Unlike 
INKEYS, however, this routine waits for 
a key to be pressed. This means that the 
only way to exit this subroutine is to 
press a key (remember that!). In addi- 
tion, the most important feature of this 
subroutine is that it returns the scan 
code for the character pressed. The scan 
code is a unique 8-bit number for each 
of the characters and character sequenc- 
es on the keyboard. 

A list of keyboard scan codes can be 
found in Appendix D of the Model 2000 

(Bob Covington has been a computer 
programmer and consultant for the past 
six years , most recently focusing his 
attention on both the Model 100 and 
the 2000. He is also a technical writer 
and editor. Bob can be contacted at 
P.O. Box 37007, St. Louis, MO 63141.) 


MS-DOS Reference Manual. Scan 
codes are especially nice when you wish 
to make use of the SHIFT, alt and CTRL 
in conjunction with the function keys 
allowing for 48 (40 on the Tandy 1200) 
individual codes from the function keys. 
In addition, scan codes also allow you 
to detect keys that are not converted to 
individual ASCII characters (like the 
SHIFT keys). This subroutine has no 
entry requirements but exits with the 
ASCII value of the key pressed in C and 
the scan code in 5C. 

The subroutine at 22000 returns the 
current shift status of the keyboard. In 
most cases, this function’s only practical 
use in GW-basic is for detecting the 
caps and num LOCK keys. On exit from 
this subroutine, SS contains an eight-bit 
number describing the eight possible 
shift statuses. Table 1 describes each of 
these shift statuses along with their bit 
position. (To detect one of the shift 
conditions, RND 55 with 2 to the power 
of the bit to detect.) For example, to 
check the status of the CAPS lock key, 
the following operation could be per- 
formed: 

X=SS RND 2^6 

Then, if X is greater than zero, the bit 
is set. Otherwise, if X is equal to zero, 
the bit is reset and the selected shift is 
not set. 

Probably the most useful subroutine 
in this set of keyboard subroutines 


By Robert D. Covington 

starts at Line 23000. This subroutine 
flushes (clears) any characters that are 
stored in the keyboard’s type-ahead 
buffer. Flushing the keyboard buffer is 
very useful for clearing out any extra 
characters that might have been typed 
on single key input entries (INKEY$ for 
example). 

If a question was asked that required 
a Y or N response, the user might end 
up typing YES or NO. If this happens, the 
E5 or 0 is stored in the type-ahead buffer 
and is released at the next input prompt. 
If an E or 0 is a valid entry at the next 
input prompt, it could select an option 
in a program that the user did not really 
want. To alleviate this problem, a 
G0SUB 23000 (or the equivalent line 
number in your application program) 
could be inserted right before the se- 
cond input prompt to clear any charac- 
ters that might have been accidently 
entered, or characters from keyboard 
bounce. 

Display Subroutines 

While most of the features of the 
display BIOS are supported in GW- 
BASIC, one feature that is not supported 
is multidirectional and windowed 
screen scrolling. 

In Program 1, the subroutines start- 
ing at 24000 and 25000, respectively, 
scroll the text inside a window on the 
screen up or down. A window is defined 
as an area on the screen with borders 
defined by four points (much in the 
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COLOR COMPUTERS 

LIST 

PRICE 

OUR 

PRICE 

26-3127 64K Extended Color Computer 2 . 

$219.95 $175.00 

26-3134 16K Standard Color Computer 2 . . 

119.95 

99.00 

26-3129 Thinline Disk Drive O for Color Comp 

349.95 

290.00 

26-3018 Extended Basic Kit 

39.95 

36.00 

26-3030 OS-9 with Editor Assembler 

69.95 

59.50 

26-3012 Deluxe Joystick 

29.95 

25.00 

26-1208 CCR-81 Recorder 

59.95 

50.00 

VIP Integrated Library 

149.95 

139.00 

VIP Writer 

69.95 

59.00 

VIP Calc 

69.95 

59.00 



59.00 

Botek Interface 


57.00 

TANDY 2000 1 

26-5103 Tandy 2000 Two Disk ! 

B1 599.00 $1225.00 

26-5104 Tandy 2000 One Disk & 10 Meg HD 

2499.00 

1885.00 

26-51 1 1 Monochrome Monitor 

199.95 

165.00 

26-5112 Color Monitor 

599.95 

510.00 

26-51 40 Hi Res Graphic Monochrome Board 

299.95 

255.00 

26-5141 Hi Rec Color Graphics Chips 

124.95 

105.00 

26-5160 Internal 128K Memory Board .... 

179.00 

150.00 

26-5300 Lotus 123 

495.00 

420.00 

26-531 1 Microsoft Multiplan 

195.00 

165.00 

26-5320 Framework 

695.00 

590.00 

26-5352 dBase II (Data Base) 

595.00 

420.00 

26-5330 Multmate r. 

249.00 

205.00 

MODEL 200 COMPUTERS 1 

26-3860 24K Model 200 Portable Comp. . . 

. $999.00 

$725.00 

26-3866 24K RAM Mem. Exp. Chip for 200 . 

. 249.95 

210.00 

26-3804 AC Adaptor 

5.95 

5.00 

26-3805 Accoustic Coupler 

. 39.95 

34.00 

26-3816 8K RAM Memory Expansion Chip . 

. 119.95 

95.00 

26-1409 Printer Cable 

14.95 

12.70 

26-1410 Modem Cable 

19.95 

17.00 

26-3809 Briefcase 

49.95 

42.50 

26-381 1 Soft Carrying Case for 100/200 . 

. 39.95 

34.00 

26-1 1 83 Bar Code Reader 

. 99.95 

85.00 

26-3806 Disk Video Interface 

. 499.00 

415.00 

26-3829 Multiplan ROM for 100 

. 149.95 

127.50 

MODEL 4 COMPUTERS 

26-1070 Model 4D 64K 2 Drive Computer 

$1299.00 $ 895.00 

26-1122 64K Memory Expansion 

69.95 

65.00 

26-1127 Model 4 Internal Drive 1 

399.95 

385.00 

26-1123 Model 3 to Model 4 Upgrade Kit . 

399.00 

385.00 

26-1084 Model 4P Modem Board 

149.00 

95.00 

26-1085 Model 4P Travel Case 

24.95 

21.25 

26-1134 Model 4 Hard Disk Kit for 15meg . 

79.95 

67.95 

26-1530 Multiplan Model 4 

199.00 

169.00 

26-1595 Super Scripsit Model 4 

199.95 

169.00 

26-1635 Profile 4 Model 4 

249.95 

200.00 

26-2216 CP/M Plus Model 4 

149.00 

127.00 

26-2231 Double Duty Utility 

69.95 

58.00 

MODEL 12 & 6000 COMPUTERS 

26-6021 Model 6000 512K 2 Drive Comp. 

4499.00 

3125.00 

26-6022 Model 6000 512K 15Meg HD . . . 

5499.00 

3795.00 

26-6014 Model 12 to 6000 Upgrade 

1595.00 

1325.00 

26-6015 Model 6000 51 2K Memory Board 

1095.00 

905.00 

26-6019 Model 6000 256K Memory Kit . 

199.95 

185.00 

26-6017 Card Cage for Model 12 

199.00 

169.00 

26-6052 DT-100 Data Terminal 

795.00 

600.00 

26-4155 15 Meg Hard Drive Primary 

1995.00 

1355.00 

26-4171 35 Meg Hard Drive Primary .... 

2995.00 

2095.00 

26-4157 Installation Kit for Primary HD , . . 

349.00 

265.00 


All prices and offers may be changed or withdrawn without notice. Advertised 
prices are cash prices. C.O.D. accepted ($10.00 charge per carton on C.O.D. 
Call for further C.O.D. information.) M.C., Visa, AX, add 2%. All non -defective 
items returned will be subject to 10% restocking fee. Defective items require 
return merchandise authorization. Call for R.M.A. Number before returning. 
Delivery is subject to product availability. 


CALL 

1 - 800 - 248-3823 



RADIO SHACK PRINTERS 

LIST 

PRICE 

OUR 

PRICE 

26-1276 DMP-105 Dot Matrix Printer 

$ 199.00 $ 

169.00 

26-1275 TRP-100 Portable Thermal Printer- 

299.00 

230.00 

26-1280 DMP-130 lOOcpsTri. Mode Printer 

349.00 

285.00 

26-1268 CGP-220 Color Ink-Jet Printer . . . 

699.00 

595.00 

25-1257 DWP -220 Daisy Wheel 

599.00 

460.00 

26-1277 DMP-430 24 Wire Matrix Printer . 

899.00 

745.00 

26-1270 DWP-510 43 cps Daisy Wheel . . . 

1495.00 

1225.00 

26-1274 DMP-2100P 24 Dot Wire Matrix . . 

1995.00 

1650.00 

26-1279 DMP-2200 HiSpeed Matrix Printer 

1695.00 

1440.00 

26-1269 PT-64 Printer Controller 

249.95 

210.00 

26-1498 ‘SW-302 Printer Switch 

119.95 

100.00 

26-1477 Auto Sheet Feeder for DWP 510 . . 

499.95 

420.00 

TANDY 1200 

25-3000 Tandy 1200 One Disk & 10 Meg HD 

$1999.95 $1525.00 

25-3010 VM-3 Green Monitor 

219.95 

185.00 

26-3212 CM-2 Color Monitor 

459.95 

390.00 

25-3040 Monochrome Display Adapter . . . 

219.95 

185.00 

25-3043 Graphics Display Adapter 

299.95 

255.00 

25-3044 Graphics Master 

695.95 

540.00 

25-3061 Captain Multifunction Board 

599.95 

475.00 

25-3130 MSDOS/BASIC 

89.95 

76.50 

25-3170 Wordstar Professional 

395.95 

335.00 

25-3160 Framework 

695.95 

590.00 

25-3161 PFS File 

140.95 

119.00 

25-3190 dBase III 

695.95 

590.00 

TANDY 1000 

25-1000 Model 1000 128K 1 Disk Drive . . 

$ 999.95 $ 705.00 

25-1001 Model 1000 256K lOMeg HD ... 

1999.00 

1495.00 

25-1005 Disk Drive Expansion 1000 

199.95 

170.00 

25-1006 RS-232C Interface 1000/1200 

99.95 

85.00 

25-1007 Hard Disk Control Board 

299.95 

255.00 

25-1011 Memory Plus Board 

319.95 

255.00 

25-1013 Modem 1200 Option 1000/1200 . 

299.95 

230.00 

25-1025 10 Meg Hard Disk 

699.95 

559.00 

25-1501 MS-DOS Reference T-1000 

34.95 

29.00 

25-1502 BASIC Reference T-1000 

34.95 

29.00 

26-321 1 VM2 Green Monitor 

149.95 

125.00 

26-3212 CM2 Color Monitor . 

459.95 

390.00 

EPSON/COMREX PRINTERS 

20001015 Homewriter 10 

. $ 288.00 

$ 230.00 

20001025 LX-80 Dot Matrix Printer 

299.00 

250.00 

20001035 FX-85 Dot Matrix Printer 

499.00 

385.00 

20001040 JX-80 Color Dot Matrix Printer . 

699.00 

485.00 

20001050 HI-80 4 Pin Plotter 

599.00 

390.00 

20002010 RX-100 Dot Matrix Printer 

499.00 

400.00 

20002030 FX-185 Dot Matrix Printer 

699.00 

525.00 

20003010 LQ-1500 18 Pin Head with Intf . 

. 1495.00 

1095.00 

20003510 CR-IIE Comrex Com Riter 

499.00 

295.00 

20001510 FX- 80 Tractor Feed 

39.95 

34.00 

20004080 NLQ Parallel Intr 

209.95 

175.00 

20001515 LX-80 Tractor Feed 

49.00 

40.00 


For Technical Questions and Information on our complete line of 
computer accessories and current prices. 

CALL 1-517-625-4161 

FOR ORDERS ONLY CALL 1-800-248-3823 

Mon., Wed. & Fri. 9-9, Tues. & Thurs. 9-6, Sat. 9-3 

12H S. IIIAIN ST PERR9, INCH. MS 872 


same way as the LINE instruction uses 
four points to make a box in GW-BASIC). 
Windows are very convenient when you 
wish to divide the 80-by-25 character 
screen into smaller sections with inde- 
pendent text. 

With the subroutines at 24000 and 
25000, the upper left corner of the 
window is defined by UC (column posi- 
tion) and UR (row position.) Likewise, 
the lower right corner of the window is 
defined by BC (column) and BR (row). 
With all four of these coordinates, the 
position vector starts with zero (instead 
of one, as does the LOCRTE statement). 
For example, if you wished to describe 
the entire screen as a window, the 
following variable assignments would 
need to be made: 


UC=0 : UR=0:BC=79:BR=24 


In addition to the window coordinates, 
the subroutines at 24000 and 25000 
require that NS contain the number of 
lines to scroll, and RT the attribute to 
fill the blank line with. If NS contains 
a zero, the entire window will be erased. 

The subroutine at 26000, like the 
above subroutines, allows a window to 
be scrolled. This subroutine, however, 
is a bit more flexible in that it allows the 
screen to be scrolled in any of the four 
directions (up, down, left and right). On 
entry to this subroutine, UC, UR, BC, BR 
and NS are set up like the above two 
subroutines. In addition, D5 contains a 
value from zero to three specifying the 
direction the window is to be scrolled 
(zero-up, one-down, two-left and three- 
right). 

Miscellaneous 
BIOS Subroutines 

Lines 27000-29010 of Program 1 
contain two subroutines that access a 
few of the more trivial BIOS functions. 

The subroutine at 27000 performs a 
“cold” reboot of the entire system. This 
function has the same effect as hitting 
CTRL-ALT-DELETE on the keyboard. 
This subroutine is very useful when a 
BASIC program has created a CONFIG- 
.SYS or RUTOEXEC.BRT file that needs 
to be installed or executed. For obvious 
reasons, this subroutine has no practical 
entry or exit parameters. 

The subroutine at 29000 loads MS 
with the total amount of RAM in K 
(1024 byte increments) that is currently 
installed in the system. This function is 
very useful when attempting to create a 
CONFIG.SYS file inside a BASIC pro- 
gram. By using this function, a BASIC 
program can determine how much 


space can be allocated for disk caches, 
RAM disk, communications buffers, 
etc. When using this function, be sure 
not to detect memory boundries by 
exact values. For example, to detect the 
presence of 512K in the system, do not 
check if MS is equal to 512, but check 
to see that it is greater than 500. This 
has to be done since this function 
returns a value that is slightly smaller 
than the actual RAM in the system 
(usually IK to 2K less than the actual 
value). 

This concludes all of the routines that 
utilize the MS-DOS access subroutine. 
Even though I have described subrou- 
tines that allow access to most of MS- 
DOS’s features, a few more trivial 
features have yet to be implemented in 
BASIC. Because of this, you might want 
to purchase Radio Shack’s MS-DOS 
Programmer’s Reference Manual (26- 
5403 for the Model 2000 or 25-1503 for 
the 1000/ 1200) and see if there are any 
other functions in MS-DOS that might 
be usable by your application pro- 
grams. 

References: 

MS-DOS Programmer’s Reference 
Manual , Tandy (26-5403) 

Table 1 

Shift Status Bit Configurations 
Bit Key/Mode AND Value 


0 Right SHIFT 1 

1 Left SHIFT 2 

2 CTRL 4 

3 ALT 8 

4 Scroll mode 16 

5 NUM LOCK 32 

6 CAPS lock 64 

7 INSERT mode 12B 


Programmer’s Reference Manual 
Correction 

The Model 2000 Programmer’s Ref- 
erence Manual (26-5403) contains a few 
errors: 

• On Page 33, the entry condition to 
“CONIO” should be: 

RH=06H 

DL=0FFH for keyboard input 
or 

DL=ASCII value of character to dis- 
play (0-254) 

• On Page 207, the multidirectional 
scroll has an additional entry condition: 

RL=number of lines to scroll (0 to 
blank window) 

I have found a few more possible 
additions /corrections in the manual 
and I will forward them as soon as 
possible. 



Educational Software 
that WORKS 
at PLAY 


An innovative and entertaining 
puzzle game designed with well 
known crossword techniques. 

• For TANDY Computers 

• 45 different color puzzles 

• Timing and Scoring 

• Additional puzzle diskettes 
available 

Call 

1 - 601 - 373-2508 

or send for information to 
ISTAR CORPORATION 
P.O. Box 567 
Brandon, MS 
39042 

C COPYRIGHT 1985 A 
ISTAR CORP ^ 
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The listing: 


1 ' *•*•* MSDOS Function Subroutines for BASIC 

2 ’ *** By Robert D. Covington 
10 DIM B$ , AX , BX , CX , BP , S I , DI , SW 

20 FOR X=1 TO 100 : READ A: BIOS$=BIOS$+CHR$ (A) :NEXT:X=FRE(BIOS$) :V=VARPTR(BIOS$) :B 
IOS ! =PEEK(V+l)+PEEK(V+2)*256 

25 CLS: PRINT "Pro gram Installed " 

999 END 

21000 1 *** Get key from keyboard queue (wait if nescessary) 

21001 ' Entry: 

21002 ' C - ASCII character from queue 

21003 ' SC - Keyboard scan code 

21004 1 

21010 1=22 : AX%=0 : GOSUB 40000 : C=PEEK(VARPTR(AX%) ): SC=PEEK(VARPTR(AX%)+1) : RETURN 

22000 ' *** Get shift status 

22001 ' Exit: 

22002 ' SS - Shift status (see Table 1) 

22003 ' 

22010 1=22 :AX%=512: GOSUB 40000 : SS=PEEK(VARPTR(AX%) ): RETURN 

23000 ' *** Flush keyboard queue 

23001 ' No entry or exit parameters 

23002 ' 

23010 1=22 :AX%=768: GOTO 40000 

24000 ' *** Scroll window up 

24001 ' Entry: 

24002 ' UC - Upper left column of window (0 - 79) 

24003 ' UR - Upper left row of window (0 - 24) 


Nil mARYITIflC INDUSTRIES INC. 

800-231-3680 

Radio Shack® Tandy® 

EPSON PRINTERS 

People you Trust to give you the very best! 


• Lowest 
Discount 
Prices 

• Reliable 
Service 

Quality 

Products 


“World’s largest independent 
authorized computer Dealer” 

22511 Katy Fwy., Katy (Houston) Texas 77450 
(713)392-0747 Telex 774132 






TOLL FREE ORDER LINE 
( 800 ) 245-6228 

****** UPGRADES******* 

FOR MODEL 1200 
and IBM PC 


MULTIFUNCTION 
CARD (Ser. Par. 
Real Time Clock 
Game Port 0-384K) 
each 64K installed 


OUR 

PRICE 


•neighborhood 

COMPUTER 
STORE* 


$ 149 . $759.29 

$ 10 . $95.22 


Color Graphics Card 
(with Composite -i -iq 
& Light Pen Ports) 


$350.92 

NO 

EQUIVALENT 


SECOND DRIVE 
(Exact Match) 


FOR MODEL 1000 


$ 124 . $299.22 


10 MEG 
HARD DRIVE & 
CONTROLLER 
1/2 Height 
Low Power 


$ 575 .$ 1 , 000 .°° 


1 YR. 


WARRANTY 
ON ALL ITEMS!!! 


Call for 
LATEST 
PRICES!!! 
(800) 
245-6228 



M.C. & VISA Accepted 

OWL-Services 

P.O. Box 116-D 
Mertztown. PA 
19539 

PA Res lnclude6%Tax 

PA (215) 682-6855 
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Lower right column of window (0 - 79) 

Lower right row of window (0 - 24) 

Number of lines to scroll (0 - clear window) 

Attribute or color to put in blank line(s) (7 usually) 


Upper left column of window (0 - 79) 

Upper left row of window (0 - 24) 

Lower right column of window (0 - 79) 

Lower right row of window (0 - 24) 

Number of lines to scroll (0 - clear window) 

Attribute or color to put in blank line(s) (7 usually) 


24004 ' BC 

24005 ' BR 

24006 ' NS 

24007 ' AT 

24008 ' 

24010 AX%=1536+NS:BX%=AT*256 

24020 1=16 : CX%=UR*256+UC : DX%=BR*256+BC : GOTO 40000 

25000 ' *** Scroll window down 

25001 ' Entry: 

25002 ’ UC 

25003 ’ UR 

25004 ' BC 

25005 ' BR 

25006 ' NS 

25007 ' AT 

25008 ’ 

25010 AX%=1792+NS : BX%=AT*256 : GOTO 24020 

26000 ' *** Universal scroll routine 

26001 ' Entry: 

26002 ' UC - Upper left column of window (0 - 79) 

26003 ' UR - Upper left row of window (0 - 24) 

26004 ' BC - Lower right column of window (0 - 79) 

26005 ' BR - Lower right row of window (0 - 24) 

26006 ' NS - Number of lines to scroll (0 

26007 1 DS - Direction of scroll (0-up, 1 

26008 1 

26010 AX%=4608+NS : BX%=256+DS : GOTO 24020 

27000 ' *** Reboot system 

27001 ' No entry or exit conditions 

27002 ’ 

27010 1=25: GOTO 40000 

*** Get memory size 
Exit : 

MS - Memory size in number of k (1024 byte increments) 


- clear window) 
down, 2-left, 3-right) 


29000 

29001 

29002 

29003 

29010 1=18 : GOSUB 40000 : MS=AX% : RETURN 


*** Convert Integer to signed integer 
Entry : 

A! - Integer (0-65535) 

Exit : 

A% - Signed Integer (-32768 - 32767) 


31000 

31001 

31002 

31003 

31004 

31005 ' 

31010 IF A!>32767 THEN A%=A! -65536! ELSE A%=A! 
31015 RETURN 


*** Call DOS function 
I - Interrupt Number 

AX% , BX% , CX%, DX% , BP% , SI%, and DI% - Registers passed to and from DOS 
SW% - Status word 


40000 

40001 

40002 

40003 

40004 

40010 MID$(BIOS$ ,48 , 1)=CHR$(I) : CALL BIOS! (AX% , BX% , CX% , DX% , BP% , SI% , DI% , SW%) : RETUR 
N 

50000 ' Program: BIOS Length: 100 bytes 

50001 DATA 30,7,139,236,139,94,4,255,55,157,139,94,6,139,63,139,94,8,139,55,139, 
94,12,139,23,139,94,14,139,15,139,94,18,139,7,139,94,16,139,31,139,110,10,139,11 
0,0,205,33,85,83,139,236,139,94,8,156,143,7,139,94,10,137,63,139,94,12 

50002 DATA 137,55,139,94,16,137,23,139,94,18,137,15,139,94,22,137,7,91,139,110,2 
0,137,94,0,139,110,14,91,137,94,0,202,16,0 
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IS Ia 

by Hard Drive Specialist 



1000 Hard Drives 


vo 


tMniip 



Shop and compare. Hard Drive Specialist has been 
building hard drive systems for years and have sold thou- 
sands of subsystems to satisfied Radio Shack/Tandy cus- 
tomers. We use the latest state-of-the-art disk drives and 
controllers. Our drives all use buffered seek logic and plat- 
ed media to result in almost one-fourth the average access 
times found on our competitors drives. Plated media 
results in longer platter life and high resistance to head 
crashes not found on coated media drives. We utilize high 
quality construction throughout including heavy duty 
power supplies and gold edge card connectors. Internal 
drive systems include an interface card and a half-height 
hard drive that replaces the top disk drive in both size and 
power consumption. External units include an interface 
card, case, power supply and hard drive unit. All units re- 
quire a memory board with DMA such as the TanPak™ 
multifunction card, or a Tandy Board, Part #25-1004. 


Hard Disk System Features: 

All sizes rated after formatting. 

One secondary drive may be added. 

Error checking and correcting controller. 
Software drivers included. 

Buffered seek drives for improved access time. 
Built in power up diagnostics. 

Plated media for long disk life. 

Gold connectors used throughout. 

1 year warranty. 

Boots directly from Hard Drive. 

Uses Tandy 1000 MS DOS. 


10 Megabyte Internal $ 549. 

20 Megabyte Internal $ 749. 

42 Megabyte Internal $1349. 

10 Megabyte External $ 699. 

20 Megabyte External $ 899. 

42 Megabyte External $1495. 


Ordering Information 

Use our WATS line to place your order via Visa, MasterCard, or Wire Transfer. Or, mail your 
payment directly to us. Any non-certified funds will be held until proper clearance is made. COD 
orders are accepted as well as purchase orders from government agencies. UPS ground is our 
standard means of shipping unless otherwise specified. Shipping costs are available upon re- 
quest. Tandy and Radio Shack are trademarks of the Tandy Corporation. TanPak, is a trademark 
of Hard Drive Specialist, a division of Compukit Corporation. 


Hard Drive Specialist 

16208 Hickory Knoll 
Houston, Texas 77059 

1-713-480-6000 


Order Line 

1-800-231-6671 


___ 


_ 





Telecommunicating with Randy 


Of Old Friends, 

Lead Time and 
Electronic Publishing 


A recent project led me to revisit 
some old friends online. I 
needed to use a bulletin board 
that I had not called for several years. 
There was no answer to my call this 
time. Were they off the air, or had they 
relocated or changed their number? 
Where could I find a current listing for 
this particular bulletin board? Hang on 
to that question; first, let’s talk about 
the publishing concept of “lead time.” 
“Lead time” is a term used by writers, 
editors and publishers to refer to the 
delay from the time the author finishes 
his work to the time it is in the readers’ 
hands. To the author, it is that period 
after which he can no longer make 
corrections to his text or update his 
references. 

One way to cut lead time is to simplify 
the editing and publishing process: 
leave off some of the frills, move things 
faster from department to department, 
or distribute directly to the readers as 
when you publish a magazine. How- 
ever, lead time for a magazine can run 
three months or more. 

In the popular mind, writers, editors 
and publishers get frantic about “dead- 
lines” — and they are vital to publica- 


( Randy Graham is a rehabilitation 
counselor working with the handi- 
capped. Personal computing is his 
hobby; telecommunications , one of his 
favorite activities. He has done free- 
lance information retrieval and is an 
inveterate user of the major online 
systems.) 


By Randy Graham 
PCM Contributing Editor 

tion commitments. But as a writer who 
wants to be informative, I am con- 
stantly concerned about how up-to-date 
I can be. 

This leads us to electronic informa- 
tion dissemination and back to my 
original question: Where can I find 
information about a specific bulletin 
board or database, or one dedicated to 
a particular need I have? Well, there are 
a number of good books on the market. 
I keep two on my computer bookshelf, 
The Computer Phone Book by Mike 
Cane (New York, New American Li- 
brary, 1983, $9.95) and OMNI’s Online 
Database Directory by Mike Edelhart 
and Owen Davies (New York, Collier 
Books, 1983). How current would the 
information be that I found there? 
Computer magazines will have more 
recent listings but are seldom compre- 
hensive. How can I be sure that 1 am 
looking at a complete, accurate list? 
Enter the old friends. 

Peoples Message Service was a pio- 
neer in promoting personal computing 
and should probably get credit for 
inventing the concept if not the term 
“user friendly.” They maintain a com- 
prehensive directory of databases, 
which you can call directly in California 
(619) 561-7277. You can also find copies 
of their directory on CompuServe and 
The Source. Don’t try to run or down- 
load their whole list — it is just too 
many pages. Search for the category or 
area code or whatever. There is ade- 
quate help online to guide you. There 
are directories on many bulletin boards, 
but I have not found one that comes 
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close to PMS’s for completeness and 
maintenance. Novation, the modem 
people, used to have a bulletin board 
with a comprehensive list, but they 
seemed to have moved since the last 
time I called them. 

On a more professional and commer- 


groups are trying. The Source is now 
offering Newsbytes as a weekly newslet- 
ter of computer news. And IF Magazine 
is still online in California as a monthly 
electronic magazine open to the public 
for a call to (714) 255-8868. In addition, 
all the information services have a 


. . PCM is sponsoring a special 
interest group called ‘MSDOS’ 
for users of MS-DOS-based 
machines.” 


cial level, Dialog is offering A Database 
of Databases. This is a logical step in 
this rapidly growing field. They have 
2,500 listings that give name, source, 
coverage, availability, costs, etc. This is 
a valuable and long-needed resource to 
online searchers. 

A New “Magazine” 

Back to the subject of lead time in 
publishing for a moment: can we cut it 
further with online publishing? Several 


bulletin section for news about their 
own operations, and many BBS’s have 
news sections containing mostly mate- 
rial the SysOp has read and typed in for 
our edification. 

A Good Book 

I do not want you to think I have 
abandoned the printed page to spend 
my life before the pixeled screen, al- 
though I admit that I long ago decided 
that if I tried to read all the books and 


magazines published about computers, 
I would have no time left for the com- 
puter. Nevertheless, I did run across a 
good book recently on getting started in 
the online lifestyle: Dialing for Data by 
David Chandler (New York, Random 
House, 1984; $9.95). There are a 
number of such introductions on the 
market, but I just liked this man’s style 
of writing. If I had gotten around to 
writing a book, I hope it would have 
come across as well as his. 


Chapter Two 

Last month, I mentioned Delphi’s 
new Tandy users group which is sup- 
porting the 1000, 1200 and 2000. As you 
might already know, PCM is sponsoring 
a special interest group called 
“MSDOS” for users of MS-DOS-based 
machines. (See “Lprint” for more infor- 
mation.) They have a separate SIG 
supporting the portables; there are also 
portable SIGs on The Source and Com- 
puServe. 

If you are reading this on the plane 
bound for Princeton, look around for 
my name tag at PCMfest and say hello. 
I will be the one with the Model 100 (the 
grown man’s teddy bear) under my 
arm. GH33 





WILL YOU BUY COMPATIBLE? 

mm Compatible (or) will you pay too much? 


SERVICE AND WARRANTY NATIONWIDE 

TANDY 2000 • 768K 

SAVE SALES TAX* 

PLUS DISCOUNT 

‘Texas Residents Add Only 4'«°o 


SERVICE AND 
WARRANTY 


Prices 


Call 


TM INTFRNAriONA BUSINl SS MAC. MINI 


FORT WORTH COMPUTERS 


WE ARE SERIOUS ABOUT SAVING YOU MONEY 


(Located 30 miles from Fort Worth) 
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RADIO SHACK'S NEW 100K 
PORTABLE DISK DRIVE 
CLEARS UP YOUR CASSETTE CLUTTER 



MEET THE NEW 
STORAGE SOLUTION 

If you’re like most Model 100 
or Tandy 200 owners, you’ve 
probably found more uses for 
your portable computer than you 
ever imagined. This is great, but 
it brings up the question of stor- 
age. Where do you keep all 
those great programs you write? 
All that important data? 

Until today it’s probably been 
on cassettes — a lot of cassettes. 
And cassettes are cumbersome, 
bulky and, well . . . slow. Now 
there’s a better way. 

Our new Portable Disk Drive 
(26-3808, $199.95) gives you fast 
access to 100,000 characters on 
3 V 2 " micro floppy diskettes. 


A TRULY PORTABLE 
DISK SYSTEM 

The Portable Disk Drive 
weighs just 1 3 /4 pounds, mea- 
sures only 2 x 4 15 /i6 x 6 1 /s" and 
runs on batteries or optional AC 
adapter. It’s small enough to fit 
into a briefcase along with your 
Model 100 or Tandy 200. Now 
you can have a full-fledged disk 
system wherever you go. Initiali- 
zation software included. 


It’s perfect for 
use with your portable’s 
built-in software. Now you can 
store and update large docu- 
ments with TEXT word process- 
ing and keep easy-to-store micro 
disks filed and categorized as 
you need them. 

Or, if you have the Tandy 200 
with built-in Multiplan spread- 
sheet analysis (or the Multiplan 
ROM pack for the Model 100), 
it’s easy to keep many different 
spreadsheets on diskette. 
They’re available for comparison 
and update at any time. 


REAL DISK DRIVE POWER 

The Portable Disk Drive fea- 
tures easy menu-driven opera- 
tion. The operating system lets 
you list the files on the diskette, 
and features FORMAT, SAVE, 
LOAD, KILL and RENAME func- 
tions. A disk access lamp lets 
you know that the disk is in use. 
Another indicator tells you when 
batteries are low. If they are, the 
unit will not function, but will fin- 
ish a job in progress. 


New 1 986 Computer Catalog! 
Send me a copy. 

Mail To: Radio Shack, Dept. 86-A-121 
I 300 One Tandy Center, Ft. Worth, TX 76102 

Name 

I Company 

Address 


City State Zip | 

Telephone I 

I I 


Prices apply at Radio Shack Computer Centers 
and at participating stores and dealers. 
Multiplan/TM Microsoft Corp. 


Radio /hack 

The Technology Store M 

A DIVISION OF TANDY CORPORATION 


SPEED, 
SIMPLICITY, 
FLEXIBILITY 


Now you can build your soft- 
ware and data library in a cost- 
effective manner. The micro 
diskettes are only $16.95 (pack- 
age of 3), and cost even less 
when you buy in quantity. The 
choice is yours — but we’ve al- 
ready stacked the deck. Step up 
to reasonable storage today! 


Barden’s Buffer 


1000 / 1200/2000 


Last month we discussed the first part of a mini-course in 
assembly language using the assembler in Debug. This 
month we'll continue in our effort to give you the 
rudiments of assembly language and assembly language 
interfacing to BASIC in 8,000 words or less. But before 
we go on, we should fill in some gaps that were missing 
in our earlier discussion . . . 

Using Assembly Language 
on the Tandy PCs 


I n the previous examples, we were 
working with 16-bit registers, usu- 
ally AX, BX, CX and DX. However, 
each of these registers can be used as 
two 8-bit registers, as shown in Figure 
1. The upper eight bits of the registers 
are designated the “high” register and 
the lower eight bits of the registers are 
designated the “low” register. FIX, then, 
becomes FIH and BL; BX becomes BH and 
BL; CX becomes CH and CL and DX 
becomes DH and DL. The other 8088 
registers, however, remain only as 16- 
bit registers. Most arithmetic and log- 
ical instructions can use either 16-bit 
registers or the eight 8-bit registers. We 
could, for example, add a value of 20 
to the BH register by the command add 
ah, 20. 

Major Instruction Groups 

We discussed arithmetic instructions 
such as BDDs and SUBs last month and 
also looked at both unconditional and 
conditional jumps. Now let’s look at 
some of the other instruction groups. 


(William Barden. Jr. is a master com- 
municator in a field in which he is one 
of the few recognized experts — micro- 
computers. A prolific author of more 
than 27 books and handbooks on com- 
puters and computer programming, Bill 
also has authored several instructional 
software projects for Tandy /Radio 
Shack.) 


The ones we’ll describe constitute 90 
percent of the instructions you’ll typi- 
cally use in your own assembly language 
programs. 

Logical instructions: The logical 
instructions perform the same opera- 
tions as BASIC BNDs and ORs and exclu- 
sive ORs. In format they look very much 
like the arithmetic instructions. The AND 
performs a logical AND on an operand: 

and al ,3 

If the BL register contained 000101 1 1 


By William Barden, Jr. 
PCM Contributing Editor 

and the AND above was executed, the 
result would be 

00010110 
AND 00000011 


00000010 

The result of the AND is done on a bit- 
by-bit basis, with a result bit being set 
only if both operand bits are a 1 . The 
AND is used to “mask” out fields within 
eight or 16 bits. 

An or al ,3 would perform a second 


Figure 1. Eight-Bit versus 16-Bit General Registers 
“HIGH” “LOW” 
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type of logical operation: 

000101 10 
OR 00000011 

00010111 

Here, a result bit is set if either 
operand bit is a 1. 

The exclusive DR sets a result bit if 
one, but not both operand bits, is a 1: 

00010110 
XOR 000000 11 


00010101 

Shift and Rotate Instructions: The 
shift and rotate instructions are used to 
shift data one or more bits at a time. To 
see how they work, assemble the follow- 
ing code: 

-a 0100 

0930:0100 moo ax, 1234 
0930:0103 mov bx,1234 
0930:0106 moo cx,ffff 
0930:0109 moo dx,8000 
0930:010C rol ax,l 
0930:010E ror bx,l 
0930:0110 shl cx , 1 
0930:0112 shr dx,l 
0930:0114 jmp 10c 
0930:0116 ENTER 

You can now see the effect of the 
shifting by a Debug command called 
Trace. Trace acts like a G (Go) but stops 
after a specified number of instructions 
are executed. For example, to execute 
1 6 instructions starting at location 0 1 00, 
you’d do: 

- t-0100 10 

For each instruction executed, the 
registers are displayed as if an R com- 
mand had been executed. Execute a 
series of Trace commands and watch 
each register in turn. The ROL and ROR 
instructions rotate data in the registers 
to the left or right. At the end of 16 
rotations, the data is restored to its 
initial status. The SHL and SHR instruc- 
tions shift data to the left or right, with 
zeros being placed into the opposite 
ends to fill vacated bit positions. At the 
end of 16 shifts, the entire register has 
been zeroed. Either 8-bit or 16-bit 
registers or memory locations can be 


rotated or shifted. 

To continue tracing from the last 
instruction, do a -t 10. 

Another type of shift is an arithmetic 
shift. In this type of shift, the sign bit 
is sign extended to the right as the data 
is shifted. Here’s an example: 

-a 0100 

0930:0100 mov ax, 8000 
0930:0103 sar ax,l 
0930:0106 jmp 0103 

In this example, the initial contents of 
the FIX register is Hex 8000 or decimal 
-32768. After the first shift, the RX 
register contains C000, or decimal 
-16384. After the second shift, the RX 
register contains E000 or -8192. This 
sign extension continues until the RX 
register holds FFFF, or -1. There is 
only one arithmetic shift in the 8088, the 
5RR. 

Another form of the shift allows you 
to shift more than one bit position at a 
time by specifying a count in the CX 
register. We’ll leave that up to you to try 
out. 

Subroutines: Another group of in- 
structions involves subroutine CRLLs. A 
subroutine is one of many instructions 
used in a program to eliminate rewriting 
the code each time the same functions 
are used. Assembly language subrou- 
tine calls are identical to BASIC subrou- 
tine GOSUBs in their function. The 
return point of a subroutine call is 
stored into the stack. The stack (dis- 
cussed last month) is a special area of 
memory set aside for return addresses, 
temporary user data, and interrupt 
return points and data. At the end of the 
subroutine a RET (similar to a BASIC 
RETURN) is used to retrieve the address 
from the stack and automatically make 
the return. Like BASIC, assembly lan- 
guage subroutines can be “nested” to 
any level. 


0930:0100 call 0105 
0930:0103 jmp 100 
0930:0105 call 10b 
0930:0108 inc ah 
0930 : 010R ret 
0930:010B dec al 
0930 : 010D ret 
0930 : 010E ENTER 


The code above has two nested sub- 
routines, one at 105 through 10A and 
the second at 10B through 10D. The 
first increments the RH register by one 
count and the second decrements the RL 
register by one count. Use a Trace 
command to execute 20 instructions 
starting at location 0100 to see the 
action — RH will count up while RL will 
count down. (RH and RL are part of RX, 
and are not displayed separately.) 

To see what happens in the stack, try 
this: 

First observe the contents of the 55 
register and SP register. Remember that 
together they point to the “stack” in 
memory that holds subroutine return 
addresses and temporary data. In my 
system the 55 register holds 0930 and 
the SP holds FFA4 before execution of 
the code. 

Now execute by a -t=0100 3. 

This executes the CRLL 0105, fol- 
lowed by the CRLL 10B, followed by the 
DEC RL. 

At this point, look at the 55 and SP 
registers again. What you will see is that 
55 is the same but that SP is set to a 
value four bytes lower than it was 
initially. In my case, this was FFA4. 
This reflects the current address of the 
“top of stack.” Remember that the stack 
builds down. We can take a look at the 
stack by using another Debug instruc- 
tion called D (Dump). Dump displays a 
block of data at one time. To display 
from 0930:FFA4, do -d 0930:FFR4. 

What you’ll see will be something like 
the display in Figure 2. 

The Xs here represent “don’t care 
data.” Initially the SP was set to FFA8. 
However, when the first call to 0105 was 
done, the return address of 0103 was 
“pushed” onto the stack and the SP was 
then adjusted to FFA6. This was fol- 
lowed by a call to 0108, and the return 
address of 0108 was pushed onto the 
stack. After the push, the pointer was 
set to FFA4. (The “pushes” are all done 
automatically by the action of the CRLL 
instruction.) The RET instructions 
“pop” the return addresses off the stack 
and adjust the SP the other direction. 
After two RET instructions the SP now 
stands at what it was initially, FFA8. 

The stack is not only used automat- 
ically to store return addresses. It can 
also be used by PUSH and POP instruc- 
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It’s the Holmes Engineering/PCSG “chipmunk” 


PORTABLE 



for the Model 100/200 


$599 

Includes a library of 
six powerful programs 



Uses the main menu concept. You see the 
disk directory instantly, arranged on your 
M-100 screen like your main menu. Just move 
the widebar cursor and transfer files with a 
function key. You can run a file directly from 
the diskette with the ENTER key. Uses V/2 
microfloppy diskettes that have a rigid plastic 
casing and a metal core. They’re tough and 
nonflexible. You can carry several in a shirt 
pocket without damage. There’s 358K on a 
diskette. Ten of these in your briefcase and 
you've got 3 ! /2 megabytes. 

Drive weighs only three lbs. and it works 
directly from the 1 10 outlet and recharges at the 
same time. It recharges in six hours with 
thousands of pages transferred between 
charges. It’s compact, with dimensions of 2Vi" 
x 5 Vi x 7.5"; and fits easily into your briefcase 
along with your Model 100 or 200. 

Machine code programs, BASIC pro- 
grams, Lucid files and documents all are saved 
and retrieved with no protocol-instantly, ready 
to run. 

In a special association. Holmes En- 
gineering and PCSG have worked together 
combining the hardware knowledge of Holmes 
and the software expertise of PCSG. The re- 
sult is a product that can only be regarded as 
excellent. 


You see the disk directory 
instantly; works just like the 
main menu 


Here is what is really exciting. The port- 
able disk drive has Random Access. Included 
as part of the operating system in the drive 
(ROM) is a very powerful disk BASIC. 

This means that you can have BASIC 
programs that will access the diskette and read 
and write records directly on the diskette. 

Just imagine yourself with this kind of 
capability. 


Database - The portable disk drive stores 
your mailing list, inventory items, part #s and 
descriptions or any other data that you need 
to recall. 


358K on a diskette 


Invoice ( purchase order)- At the touch of 
a button you can print out your sequentially 
numbered, professionally done invoices. This 
is truly professional invoicing capability. 

Purchase orders are just as easy. 

Sort — This excellent utility allows you 
rapid sorting of any records you have compiled. 
You can write the newly sorted list back in the 
same file on the diskette or to a new file. 

Telecom interface- If you are a user that 
likes to access other computers or databases 
(tor example CompuServe) by telephone then 
this powerful facility alone is worth the price of 
the disk drive. You can automatically download 
and upload information onto the diskette. 

Calendar - Everyone who has seen this 
program has said, “This is the first calendar/ 



diary/scheduler on any computer anywhere that 
I can use. It is so functional.” 

The calendar program is usable for two 
reasons, first it is designed correctly, and 
second you have the memory (358K) on the 
diskette to log and access a tremendous amount 
of notes over a long period of time. 

Personal Finance Manager - This 
wonderful program truly lets you keep track of 
your finances. 

All your records are kept on the diskette. 
Bank accounts (checking and savings) and 
charge accounts such as MasterCard and Visa. 

We at PCSG believe we have the ultimate 
Model 100 system, the Portable Disk Drive 
plus the Lucid spreadsheet on snap-in ROM, 
Write ROM word processing and the new 64K 
RAM expansion now available from PCSG. 

We want you to find out for yourself at no 
risk. If you aren’t totally satisfied within 30 
days, simply return the disk drive for a full 
refund. Priced at $599.95, including the soft- 
ware library. MasterCard, Visa, COD. 
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tions to store register data temporarily. 
This is often done so that the registers 
can be used for other purposes. Any 
data that is stored, however, must be 
retrieved, or at least the SP must be set 
to the initial value. Here’s an example 
of a storage of AX and BX and a later 
retrieval: 

push ax 

push bx 


pop bx 

pop ax 

Note that the registers are restored in 
the reverse manner from which data was 
stored. As a point of fact, however, data 
does not have to be restored in the same 
registers, or even restored at all, as long 
as the SP is set back to what is was 
initially. 

Other 8088 Instructions 

We’ve covered a large number of 
instructions above, but haven’t touched 
on a number of the more interesting 
instructions in the 8088, such as the 
multiply, divide and string processing 
instructions. We’ll cover some addi- 
tional instructions in the remainder of 
this column, but can’t describe every 
instruction. One thing that will be 
indispensable is a good reference book 
on 8088 assembly language. Probably 
the best place to start is to look at 
publications by Intel, the manufacturer 
of the 8088. Technical book stores may 
have the Intel “iAPX 88 Book,” which 
provides a detailed breakdown of the 
8088 instruction set. Books by other 
authors range from fair to excellent. 
The IBM Macro Assembler or equiva- 
lent Radio Shack documentation is also 
helpful, but is bundled with the soft- 
ware, and you may not choose to make 
the investment at this time. 

Application Examples 

We now have a little knowledge of 
assembly language and should be well 
prepared to create chaos on Tandy 
1000s, 1200s or 2000s. In all seriousness, 
however, there’s not too much trouble 
we can get into. If the system “locks up” 
and you can’t get back to Debug, just 
reload and start again. We’ll also show 
you how to save a memory image on 
disk so you will be able to restore longer 
programs without having to reenter 
everything from scratch. We’ll consider 
two programs here. Program 1 will 
change all uppercase characters to 
lowercase characters. Program 2 will fill 


the display screen with any given char- 
acter. 

Program One: Uppercase to Lowercase 

Like any programming problem, the 
first step is to do some thinking about 
what’s involved. Uppercase and lower- 
case characters are both represented in 
PC compatibles by ASCII codes. The 
ASCII codes for uppercase ‘A’ through 
‘Z’ are 65 (decimal) through 90 (de- 
cimal), while lowercase ‘a’ through ‘z’ 
are 97 (decimal) through 122 (decimal). 
We’ll assume that we’re given an ad- 
dress of a text string of a given length. 
Since this assembly language code will 
probably interface to BASIC, we’ll as- 
sume that the text string will be no 
longer than 255 characters. The address 
could be anywhere within the BASIC 
segment, so we’ll need a 16-bit address 
value that points to the beginning of the 
text string. The process would appear to 
involve “scanning” a text string from 
beginning to end, looking at each char- 
acter to see whether it is an uppercase 
character. If it is, we’ll change it to the 
corresponding lowercase character by 
setting bit 5 of the character. An T Hex 
value of 49, for example, binary 
01001001, can be changed to lowercase 
by setting bit 5 — 01101001. 

By the way, this is not something that 
an experienced assembly language pro- 
grammer can immediately sit down and 
crank out. He’d have to do some head 
scratching first, just as we’re doing. 

My first programming attempt pro- 
duced this: 

-a0100 

0930:0100 cmp si,di 
0930:0102 je 115 
0930:0104 mov al,[si] 

0930:0106 cmp al,40 
0930:0108 jle 112 
0930:010A cmp al,5a 
0930 : 010C jg 112 
0930 : 010E or al,20 
0930:0110 mov [si],al 
0930:0112 inc si 
0930:0113 jmp 100 
0930:0115 ENTER 

One thing that you might notice in 
entering the address for the JMP5 is that 
you don’t know beforehand what the 
addresses will be. For example, when 
entering JE at 0102, you don’t know at 
that point that the ending point of the 
program is at address 115 because you 
haven’t entered all of the instructions 
and Debug has not computed the in- 
struction lengths. In these cases, simply 
put in a “dummy” address, such as IFF, 
and then go back with a single location 


A to enter the correct address after all 
of the instructions have been entered. 

Let’s look at the program in detail. 
The program assumes that the starting 
address of the text string will be in the 
5 1 register and the ending address of the 
string will be in the DI register. 51 and 
DI are typically used to hold addresses 
in this fashion. We’ll see why in a 
moment. 

The CMP instruction compares the 
contents of 51 and DI. If they are the 
same, the last byte (character) of the 
string has been reached then the pro- 
gram ends with a jump (JE) to location 
115. Location 115 has no instruction, 
but we’ll just breakpoint there for the 
time being. 

If the contents of 51 and DI are not 
equal, then there are more characters to 
process. The “current” character is 
moved into the AL register by MOV 
AL , [ 51 ] . This instruction uses the SI 
register as an “index register” that 
points to the next character. Remember 
that 51 contained the starting address 
upon entry into the program. 51 will be 
incremented by one as each character is 
tested. The MOV AL , [ S I ] form of the 
instruction loads the AL register with the 
character pointed to by the 51 register. 

With the current character in AL, the 
next step is to see if the character falls 
between 40 and 5A (Hex). Two com- 
pare/conditional jump combinations 
are used for this. The first tests for AL 
less than or equal to 40 and jumps to 
location 112 if so. In this case the 
character is not an uppercase text 
character. The next tests for AL greater 
than 5A. If this condition exists, the 
character is a higher value than an 
uppercase text character and a jump is 
made to location 1 12 again. 

At 10E, the character in AL must be 
within the range of 41 through 5 A, an 
uppercase text character. The OR AL , 20 
instruction ORs the contents of AL with 
the Hex value 20 (binary 00100000), 
setting bit 5 and converting the charac- 
ter from uppercase to lowercase. The 
character is then stored back to memory 
by using the 51 register contents as a 
pointer once more. 51 at this point has 
not changed. The next instruction is 
executed in all cases. It increments the 
contents of 51 by one to point to the 
next character. An unconditional Jmp 
is then made back to the beginning of 
the program. The tests are repeated for 
every character in the string. 

How can we test this program? Al- 
most every program requires some 
testing and the testing usually takes as 
much time as writing the program in the 
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USE YOUR DESKTOP COMPUTER AS A 
DISK DRIVE FOR YOUR M-100. 



Try Disk + for 30 days. If you aren’t as 
excited as we are, return it for a full refund. 


When we designed D/s/c + we did it out 
of necessity. We wanted a way that we 
could just connect a Model 100 to our 
desktop computer with a cable and save 
files onto the desktop’s disk drive. We 
wanted it to be so simple to use it would 
be self-explanatory. 

Picture this. Disk 4- comes to you on a 
Snap-in ROM and a diskette for your 
desktop. You take a quarter and open the 
little compartment on the back of your 
Model 100. Then you just press the ROM 
into the socket. Disk -»- appears on your 
main menu just like a built-in. 

You connect your Model 100 to your 
other computer using an RS232 cable 
(available from PCSG for $40). 

You just place the Disk + diskette into 
the desktop’s drive and turn on the com- 
puter. It powers up automatically and says 
‘awaiting command” on your desktop’s 
screen. Then you just put the widebar 
cursor on the Model 100 main menu on 
Disk + and press ENTER. You are shown 
your RAM files arranged just like the main 
menu. 

To save a file to your other system’s 
disk drive, you just move the widebar cur- 
sor to the file you want to save and press 
ENTER. It is saved instantly with no 
further action. 

To look at the disk directory, you just 
press a function key on your Model 100. 
You see immediately the disk directory on 
your Model 100 screen, and it is arranged 
just like your Model 100’s main menu. 

To load a file from the diskette to your 
Model 100, you just move the widebar 
cursor to the file and press ENTER. The 
file is transferred to your Model 100’s RAM 
instantly. You can press F8 and go back to 
the main menu, and the file you loaded 
from diskette is there, ready to use. 


It is so nice to be able to keep your 
documents, programs (both BASIC and 
machine code) and Lucid spreadsheet 
files on the diskette, and bring them back 
when you need them. All files are ready 
to run or use with no changes or protocol 
by you. 

If you have access to a desk' 
top computer and don’t 
have Disk + , then evidently 
we have done a poor job 
telling you about it. 

All files and programs that you load or 
save, go over and come back exactly as 
they are supposed to be because of full 
error checking. This guaranteed integrity 
is really a comfort. Disk+ is wonderful in 
so many other ways. For example, you 
can do a “save all” of all your RAM files 
with just a touch of a function key. That 
group of files is saved on the diskette 
under a single filename with a .SD (for 
subdirectory) extension. Any time you 
want, you can bring back all those files at 
once, or just one or two if you like, again 
with one-button ease. 

D/s/c + takes up no RAM. That’s zero 
bytes either for storing the program or for 
operating overhead. 

What really excites most Disk + users 
is text file cross compatibility. Your Model 
100’s text files are usable on your desktop 
computer, and your desktop's text files 
become Model 100 text files. 

This means you can write something on 
your Model 100, and with Disk + transfer it 
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instantly to your desktop and start using it 
right away on your bigger computer. Or 
the way we like to work is to type in a 
document on the desktop computer and 
then transfer it to our Model 100 with 
Disk + . Then we print out the document, 
beautifully formatted, using WRITE ROM. 

Disk -I- works with just about every 
micro sold, from IBM PC and its clones, to 
all Radio Shack computers (yes, all), to 
Apple II, Kaypro, Epson and most CPM. 
Just ask us. More than likely, your comput- 
er is supported. 

Incidentally, hundreds of Model 100 
owners have gone to their Radio Shack 
stores and bought a color computer be- 
cause it is so low priced, and with Disk + 
they have an inexpensive disk drive. 

And if that weren’t enough, how about 
this: Disk + also provides cross-compati- 
bility between different computers like 
IBM, Apple or the Model 4 using the Model 
100 as the intermediary device. Quite a 
feature! 

The snap-in ROM is really great be- 
cause you can use other ROMs like Lucid 
or WRITE ROM. They snap in and out as 
easily as an Atari game cartridge and you 
never lose your files in RAM. 

Anyone who ever uses D/s/c + simply 
can’t do without it. But so many times we 
have had new users call us and say, 
“Wow! I had no idea when I ordered it that 
D/s/c + would be so fantastic. I just 
couldn’t believe that I could use my 
desktop computer’s disk drive with my 
Model 100 just like it is another main 
menu.” 

That’s why we sell Disk + on a thirty- 
day trial. If you aren’t completely satisfied, 
return it within thirty days for a full refund. 
Priced at $149.95 on Snap-in ROM. Mas- 
terCard, Visa or COD. 


FQRTABLE COMPTER SlflGRT GROUP 

11035 Harry Hines Blvd., #207, Dallas, Texas 75229 *1(214) 351-0564 

PCSG provides hotline software support for the Model 100. Call us at 1 -214-351-0564 
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first place. In this case, the testing will 
take even longer. Let’s start out with a 
single byte of test data in an unused 
location, say location 0120, to keep the 
data away from breakpoints and the 
program. We’ll put an uppercase ‘A’ 
into location 0120 by this command: 

-e 0120 "Fl" 

This Debug command enters an ‘A’ 
into location 0120 which we can verify 
by a Dump: 

-d 0120 

Now we’ll use the R command to 
change the SI and DI registers to point 
to 0120: 


-e 0120 "NOW IS THE TIME" 

The SI and DI registers are then set 
for the new string: 

-r si 
SI 0000 
:0120 
-r di 
DI 0000 
: 012e 

After a check of the registers by R, we 
execute again. This time a dl20 reveals 
that the data in the 120 area has been 
set to “now is the time.” One more test 
might be nice, a test to see that no data 
is changed when it shouldn’t be. E is 
used again to enter data that should not 
be changed: 


-e 0120 "asdf 1234B$&" 

A check after execution reveals that 
this data has not changed. At this point 
we can say that the program appears to 
be working. However, there may still be 
bugs lurking within! 

Program Two: Fill the Display 
Screen With a Given Character 

The next program we’ll consider is a 
program to fill the display screen with 
a given character. As in the first pro- 
gram, we’ll need to do a little thinking 
about the design of the program before 
beginning. The display screen for a 
color graphics display is located at 
absolute memory address B8000, as 
shown in Figure 3. Each character 


-r si 
SI 0000 
:0120 
-r di 
DI 0000 
:0120 

At this point we should be set to go. 
A quick check of the registers by 
another R command verifies that SI and 
DI contain 0120. We’ll execute at 0100 
and breakpoint at 01 15: 

-g=0100 0115 


After reaching the breakpoint, how- 
ever, we’ve found that location 0120 still 
contains an uppercase ‘A’ rather than a 
lowercase ‘a’ as we expected. What’s 
wrong? A little more head scratching 
uncovers this fact: The comparison of 
SI and DI in the first instruction imme- 
diately terminates the program! The 
JMP instruction should have been JG, or 
JMP if 51 was greater than DI. Making 
the change, we now have: 


0930:0100 
0930:0102 
0930:0104 
0930:0106 
0930:0108 
0930 : 010ft 
0930 : 010C 
0930 :010E 
0930:0110 
0930:0112 
0930:0113 
0930:0115 


cmp si,di 
jg 115 
mov al , [ si ] 
cmp al,40 
jie 112 
cmp al,5a 

jg H2 

or al,20 
mow [si],al 
inc si 
jmp 100 
ENTER 


Now reset the SI register to 120 and 
execute. This time execution reveals a 
61 Hex in location 0120, equivalent to 
an ASCII ‘a’. Heady with success, we 
use the Debug E command to create a 
string of characters: 


Figure 3. Text Mode for Color Graphics 


B800:0000 

:0001 

.0002 

:0003 

:0004 


LINE 1, CHAR 1 CHARACTER 


LINE 1, CHAR 1 ATTRIBUTE 


LINE 1, CHAR 2 CHARACTER 


LINE 1, CHAR 2 ATTRIBUTE 


LINE 1, CHAR 3 CHARACTER 


ETC. 


FOREGND 


ATTRIBUTE 

BYTE 


B BACKGRND I 


L 


^INTENSITY 


BLINK 
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position in text mode is made up of two 
bytes, the actual ASCII character dis- 
played and an “attribute” byte. The 
attribute byte controls blinking, fore- 
ground color, and background color as 
shown in the figure. To fill the screen 
with a given character, then, means 
writing the character to every even- 
numbered byte starting from B8000 and 
ending 2,000 bytes later, in 80-character 
mode (25 lines at 80 characters is 2,000 
characters). Each attribute byte should 
probably also be set to some reasonable 
value. We’ll use a value of 15 decimal 
for a normal text display. See Figure 3. 

The main problem here is how to 
address the B8000 area. We know that 
we can address 64K bytes within a 
current segment, but how do we address 
another segment? One way to do it is to 
use the E5, or extra segment register. If 
we set that to B800, we’ll be addressing 
the start of the video display memory. 

Our first rough attempt at this prob- 
lem produces: 

-a 0100 

0930:0100 mov bx,b800 
0930:0103 mo v es,bx 
0930:0105 mov cx,7D0 
0930:0108 mov al,15 
0930:010R mov si,0 
0930:010D es:mov [si], ah 
0930:0110 es:mov [si+l],al 
0930:0114 add si, 2 
0930:0117 dec cx 
0930:0118 jnz 10d 
0930 : 011R ENTER 

Let’s look at this code in detail. First, 
we’ve made the assumption that the 
character to be stored is in the RH 
register. RL will hold the value to be put 
into the attribute byte. The E5 register 
is loaded with the value B800 by first 
loading the RX register and then transfer- 
ring the value. The CX register is then 
loaded with a count of 2000 (7D0 in 
Hex), representing the 2,000 characters 
that must be transferred. The RL register 
is loaded with the attribute value. The 
51 register is used as an index register 
in the same fashion as in the preceding 
example. The 0 represents an offset of 
0; it will be incremented during the 
transfer of data. 

The main loop of this program is at 
10D through 118. Each time through 
the loop, the character to be displayed 
is stored from RH, and the attribute byte 
is stored from RL. A MOV accomplishes 
both stores. The first store is to the 
offset pointed to by SI. The next store 


is to the offset* 1. The ES: mnemonic is 
called a segment override mnemonic. It 
tells the 8088 that the following instruc- 
tion will reference the E5 segment, 
rather than the D5 segment as would be 
done without the override. 

The RDD instruction adds 2 to the 51 
register to point to the next two bytes, 
the character and attribute bytes. The 
CX register is decremented by one. 
When CX is decremented down to zero, 
2,000 stores of the character and attri- 
bute byte will have been done, and the 
program is over. If 2,000 stores have not 
been done, however, the program con- 
tinues by the JNZ 10D. 

Before executing this program, we 
must put the character to be stored in 
RH. This can be done by 

-r ax 
RX 0000 
: 4100 

Note that the RX register must be 
specified. It’s not possible to fill only 
one half of the RX register by RH or RL. 

Now a Go can be executed with a 
breakpoint at Oil A: 

-g=100 11a 

Sure enough, as in most assembly 
language programs, the code did not 
work the first time. I got a washed out 
set of A’s on my black and white dis- 
play. A little investigation turned up the 
fact that the RL was loaded not with 15 
decimal, but with 15 Hex as in the code 
above. Change the line to 

mov al , f 

and the program will work. 

Saving and Reading 
Programs From Disk 

Three more Debug commands may 
prove extremely helpful. It is possible to 
save a core image of the assembly 
language code and data you’ve entered 
by first naming a file by the N command: 

-n alnuml . dat 

Next, the number of bytes to be 
written must be loaded into BX and CX: 

-r bx 
BX B800 
:100 
-r cx 
CX 0000 
: 100 


We’ve used 100 bytes (256 bytes 
decimal) here as an arbitrary value, but 
you should use a value dependent upon 
the program size. Finally, the address of 
the start of the data is specified in a 
Write command. If no address is spec- 
ified, the data will be written out from 
location 0100. 

-u 

When the write is being done, you’ll 
see the message 

Writing 100 bytes (this example) 

Thereafter, to load in the file contain- 
ing the data, just do an L command: 

-1 

(If you are loading in the file initially, 
however, you must first specify a file 
name by using an N command.) 

Interfacing To BASIC 

All of the above is well and good, but 
what do you do with the assembly 
language program once you have it? 
One excellent idea is to interface it to 
BASIC. That way basic and assembly 
language can work together, BASIC 
providing the input and output format- 
ting, and assembly language providing 
the high-speed processing for those 
time-critical functions such as sorting 
and string processing. 

Let’s see how this is done by taking 
one of the two application examples 
above and using it with a BASIC 
“driver.” We’ll choose the screen dis- 
play. 

First, we must determine the memory 
in which the assembly language pro- 
gram is to reside. BASIC operates in a 
64K segment as shown in Figure 3. The 
top of this segment can be “protected,” 
or reserved for assembly language, by 
loading basic with the 'M switch. An 
example is 

A>BASICA /M:G0000 

which reserves offset locations 60000 up 
65535 in the BASIC segment for assem- 
bly language subroutines. Anything put 
in these locations will not be touched by 
BASIC as it uses its stack and string 
storage area. A similar command is 
CLEAR, G0000 from within a BASIC 
program. 

If you have a system with minimum 
memory, by the way, you’ll probably 
have to use a much smaller value for this 
protected area, as there may not be that 
much memory left over by the time 
BASIC, video graphics areas, and so 
forth are loaded. For that reason, we’ll 
use a value of 25000 in the following, 
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allowing the program to run on 128K 
Tandy 1000 systems. 

The next requirement is to move the 
assembly language code into the pro- 
tected area. One convenient way to do 
this is to store the machine language 
code in the form of data statements with 
the &H prefix. Before we do that, 
though, we’ve got to modify our code 
slightly to enable parameters to be 
passed from BASIC to assembly lan- 
guage. (In other cases, parameters may 
be passed back the other way, or in both 
directions.) 

Here’s the modified program, reen- 
tered from Debug: 


-a 0100 

0930:0100 

0930:0101 

0930:0102 

0930:0106 

0930:0109 

0930: 010B 

0930:010E 

0930:0110 

0930:0113 

0930:0116 

0930:0116 

0930:0110 

0930:011E 

0930:0120 

0930:0121 

0930:0122 


db 0 

push es 

mov ah, [61a8] 

moo bx,b800 

moo es,bx 

moo cx,?D0 

moo al,f 

moo si,0 

es:moo [si], ah 

es:moo [si+1] ,al 

add si, 2 

dec cx 

jnz 113 

pop es 

retf 

ENTER 


for the return to BASIC. All segment 
registers must be restored when the 
assembly language code returns to 
BASIC. The next change was MOV 
AH , [ 61R8 ] . This instruction moves the 
data from location 61A8 (25000 dec- 
imal) into the RH register. Recall that RH 
holds the byte to be stored on entry. The 
POP ES restores the contents of ES 
before the return to BASIC. The last 
thing added was an RETF instruction so 
that the assembly language code be- 
comes a true subroutine. The RETF here 
is different from the normal RET used 
in Debug; it’s a “Far” Return, indicating 
that both the CS register and offset 
address must be retrieved from the 
stack. The call from BASIC was located 
out of the BASIC data segment and was 
a corresponding “Far” call that changed 
the CS register in addition to specifying 
an offset within the new code segment. 

The next step is to Dump the machine 
language from Debug so that we can see 
what bytes to store in the BASIC DRTR 
statements. The relevent portion of the 
Dump looks like Figure 4. 

We can now put the code into BASIC 
DRTR statements as in Figure 5. 

When this program is executed, you 
will see data appearing so fast on the 
entire screen that you won’t be able to 
make out individual characters. Con- 
trast this with the speed of BASIC! 


The first added here was a DB pseudo- 
op before the code. The DB operates 
much like the DW, except that it reserves 
one byte per argument. The second 
thing added was a PUSH ES to save the 
contents of the ES register in the stack 


The CALL Statement 

The CRLL statement in BASIC actually 
transfers control to the assembly lan- 
guage code. Normally the CRLL can be 
used with any number of parameters. 
The parameters are passed to the assem- 


Figure 4: 

-dl00 

0930:0100 00 06 8fi 26 R8 61 BB 00 BB BE C3 B9 D0 07 B0 0F 
0930:0110 BE 00 00 26 8B 24 26 88 44 01 B3 C6 02 49 75 F3 
0930:0120 07 CB 


Figure 5: 

90 CLERR ,25000 

100 DRTR &H00 , S.H06 , &H8R , &H26 , &HR8 , &H61 , &H8B , &H00 
110 DRTR &HBB , 8.HBE , &HC3 , &HB9 , &HD0 , &H07 , &HB0 , &H0F 
120 DRTR &HBE , &H00 , &H00 , &H26 , &H88 , 8.H24 , &H26 , &H88 
130 DRTR &H44 , 8.H01 , 8.H83 , &HC6 , &H02 , 8.H49 , &H75 , &HF3 
135 DRTR &H07 , &HCB 

140 FOR 1=0 TO 33: READ R: POKE 25000+1, A: NEXT I: RLSUB=25001 
150 B=INT ( 256*RND( 1 ) ) : POKE 25000, B: CALL RLSUB 
160 GOTO 150 


bly language program via the stack, 
which both BASIC and the assembly 
language code share. Here, though, 
we’ve used a “parameterless” CRLL that 
simply calls the assembly language 
code. We’ve passed the parameter by 
defining the first location of the assem- 
bly language program as a mutually 
agreed upon location to hold the char- 
acter to be displayed. The CRLL actually 
calls the assembly language code one 
byte after the parameter. If this were not 
done, the 8088 would attempt to exe- 
cute the parameter value, which would 
probably be a garbage instruction. 

Position Independent Code 

A word of warning is in order. Not 
all Debug assembled programs will be 
able to be incorporated into BASIC 
statements as we did here. If you use 
constants inside the program and MOV 
them with absolute addresses, those 
addresses will be wrong when BASIC 
executes the assembly language pro- 
gram. Here’s an example of what we 
mean: 

0930:0105 mov ax,010fi 
0930:0108 jmp 0100 
0930 : 010R db 23 

The MOV AX , 010R assembles as 
B80901, with the 0901 representing an 
absolute offset within the current code 
segment. This offset will be different 
when the program is loaded into the 
BASIC data area. Conditional and un- 
conditional jumps are “position inde- 
pendent,” however, as they assemble 
relative to their location and do not 
include absolute addresses for jumps 
that are close. There are tricks to get 
around this limitation, but that’s 
another column. 

In Summation 

In 8,000 words, we’ve touched on 
assembly language in the Tandy 1000, 
1200HD and 2000, but left out a great 
deal of material! I hope this has given 
you the flavor of what’s involved, 
however. It is definitely not for the 
casual Lotus 1-2-3 user, but can be very 
rewarding if you’re willing to spend the 
time in training. I am currently finishing 
a complete course with text and soft- 
ware for assembly language on the 
Tandy 1000, 1200HD and 2000. For 
more information, write me at P.O. Box 
3568, Mission Viejo, CA 92692. Next 
time we’ll be back with less esoteric 
topics, perhaps describing in detail how 
to turn on your system and set the 
clock. HtE3 
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The Gallery 


1000/2000 


Palette Animation 


With Wayne Sanders, Curator 



T his month’s featured exhibit is the work of William Fronek of Houston, Texas. 

The program, called WAVE . BAS, simulates computer animation with clever use of BASIC’s PALETTE command. 

, .. 11 f uns on either a Tandy 1000 or a Tandy 2000 with graphics. If you will be using it on a Tandy 2000 change 

the first line to read 1000 MODEL=2000. J K 

H you have a creation you’d like to see presented here, by all means, send it in. A winning gallery exhibit is chosen 
each month, and the artist is awarded $50. Address your entries to Wayne Sanders, PCM Gallery P O Box 385 
Prospect, KY 40059. You might find it well worth the effort! 



CLS : KEY OFF: SCREEN 
:EN 3:R-1 


1030 
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The Integrated Desk 


1000 / 1200/2000 


PCM introduces a new monthly column 
that helps you put Tandy’s DeskMate to work 


The Integrated Desk 


W elcome to PCM’s new Desk- 
Mate column. You will find 
important information and 
interesting tidbits here each month to 
help you get the most from your Desk- 
Mate software. I’m excited to bring you 
this column and I think you will find it 
useful whether you’re a beginner or an 
advanced computer user. 

As you may know, Tandy distributes 
DeskMate with every new Tandy 1000 
and 4D. Versions are available for other 
models, such as the 1200, 2000, Model 
4/4P and Color Computer. I will con- 
centrate in this column on the MS-DOS 
versions of DeskMate for the 1000, 1200 
and 2000; especially the 1000 since 
everyone receives a copy of DeskMate . 

I encourage you to write me with your 
problems, suggestions or questions 
about DeskMate. Let’s face it, no man- 
ual completely covers all the subjects or 
questions a person may have with a 
particular piece of software, and Desk- 
Mate is no exception. And in this case, 
an integrated package, there can be 
many questions about each feature. So, 
don’t hesitate to write and share your 
thoughts or problems. 


(Bobby Ballard is a free-lance writer 
and the owner of a computer software 
and consulting firm. He also operates a 
BBS in Brooklyn. Bobby can be con- 
tacted at 1207 Eighth Avenue , Apt. 4R, 
Brooklyn , NY 11215.) 


By Bobby Ballard 

Integrated Versus Dedicated 

DeskMate might have been your first 
experience with an integrated software 
package. If so, let me help you get a 
grasp on the difference between inte- 
grated and dedicated software and what 
they mean to your productivity. After 
ail, you bought your computer to be 
more productive, right? 

When you see the term integrated 
software, it can sometimes have various 
connotations. Most of the time though 
the term is applied to progams that 
combine features traditionally found in 
separate packages. In the past, if you 
wanted to process words, you bought a 
word processor or editor of some type 
and used it for just that task. Then, if 
you needed to file some information, 
you would load a database program, set 
up your files for whatever type of data 
you needed to keep track of and then 
file it. There are many historical reasons 
for the separation of these tasks, but the 
main one is memory capacity. These 
separate but equally powerful programs 
are known as dedicated applications. 

As the industry moved toward more 
memory at lower cost, programmers 
were given the ability to combine differ- 
ent features in one program and to 
make those features interactive. In the 
past, you might not have been able to 
combine a letter with your files unless 
the two programs could “talk” to each 
other or you bought a program to make 
them interactive. This combining of 
features is known as integrated soft- 
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ware, and that’s the category into which 
DeskMate falls. 

DeskMate packs many features and 
a lot of power for the money spent. 
Although the names have been 
changed, the tasks are essentially the 
same. You get a word processor in the 
“Text” section to handle your writing 
needs. The “Worksheet” section is a 99 
by 99-cell spreadsheet for performing 
complex calculations and “what if” 
functions. “Filer” is a database manager 
that will not only keep track of your 
data, but allow you to combine your 
data with the “Text” feature using a 
merge function. The “Telecom” feature 
is a telecommunications package that 
handles dialing the phone, “auto-logs” 
and the protocol settings for using a 
modem to send and receive data over 
the phone lines. The “Calendar” feature 
provides time management software 
that works with the “Alarm” feature to 
warn you before the event is about to 
happen. The “Mail” feature provides a 
way of receiving files over the phone 
lines while leaving your computer unat- 
tended. This works in conjunction with 
the “Host” mode found on the single- 
line menu at the bottom of the main 
menu. 


In addition, DeskMate provides a 
simple calculator, on-screen help files, 
an alarm file editor, voice phone dial- 
ing, data and time functions and printer 
settings modification. Each month I’ll 
cover one of the many and varied 
features found in DeskMate , weed 


While you may be 
able to write a 
letter, merge it 
with a spreadsheet 
and then send it 
out over the phone 
lines to others, 
you will find trade- 
offs for the 
convenience.” 

AIM 

through the manuals and help files and 
pass on tips that you have found and 
sent in to share with others. 

You must remember that integration 
has its drawbacks. While you may be 
able to write a letter, merge it with a 
spreadsheet and then send it out over 


the phone lines to others, you will Find 
trade-offs for the convenience. What 
are those trade-offs? Let’s take a look. 

The first obvious drawback is the size 
of the files with which you can work. 
For example, when you go to download 
using the “Telecom” feature, you will be 
limited by the size of the buffer you have 
in which to capture data. With Desk- 
Mate , the buffer is only 17K or about 
17,000 bytes. Each character received 
takes a byte so your files will have to be 
no longer than several pages of single- 
spaced data. Some quick calculations 
reveal the details. If the average word 
in the English language is five charac- 
ters in length, and you allow for control 
characters as well, you can only down- 
load about 3,000 to 3,400 words. At 
1200 Baud you receive about 24 words 
a second. At that rate you will fill your 
buffer in about two and a half minutes. 
At 300 Baud you will fill your buffer in 
just under 10 minutes. 

A second drawback is limited fea- 
tures. You will notice, especially if 
you’ve worked with other software, that 
many features of dedicated programs 
are not found in DeskMate applica- 
tions. To give another example, the 
word processor in DeskMate does not 


SMARTCOOK 


RECIPE PACKAGES FOR 
MICROWAVE AND 
CONVENTIONAL COOKING 


SMARTCOOK PACKAGE 

Different categories $14.50 ea. 

LADY PENELOPE 

The finest of gourmet dining $29.50 ea. 

YOUR TICKET TO THE KITCHEN 
For the younger chef $29.50 ea. 

MY VERY OWN RECIPES 

Save your own favorite recipes $29.50 ea. 


‘CHOOSE YOUR WAY OF COOKING — 
MICROWAVE OR CONVENTIONAL. 

‘CHOOSE THE NUMBER OF SERVINGS FROM 
1 THRU 24. 

‘MAKE INGREDIENT SUBSTITUTIONS 
WHERE NECESSARY. 

‘PRINT CUSTOMIZED RECIPE WHEN YOU 
WISH. 

‘BE AN AWARD-WINNING CHEF! 

MOST COMPUTER SYSTEMS SUPPORTED. 
(APPLE, IBM, COMMODORE, KAYPRO, 

ZENITH, COMPAQ, ATARI) 

(TANDY 1000, 1200, 2000HD) 


MASTER/VISA ACCEPTED 

LE COM ENTERPRISES, INC. 
P.O. Box 346 
Winfield, IL 60190 
(312) 682-0650 

Shipping & Handling — $1.50 
(dealer inquiries invited) 


EXPAND THE TANDY 2000® 
TO 


OF 008 ADDRESSABLE RAM 

Includes RAMdisk Software at No Extra Cost ... 

Add 640K of External RAM Memory to TANDY 2000’s® 
256K of Internal F*AM Memory for a total of 896K of DOS Ad- 
dressable RAM. 

* Uses only one (1) External Memory Card Slot 

* RAMdisk Software is included with the price. 

$495.00 for a 640K bytes of External 
COSt! RAM Memory Board (Includes RAMdisk 
Software) 

Call about our Trade-In Exchange option 
if you already use Tandy’s 128K External 
Memory Board. 


for ordering (509) 627-5291 
and information call: Hours 9:00-5:00 PST 


We accept Check, MO, Visa, Mastercard 
terms: Add 7.3% sales tax in Wash. 

Add $3-shipping/handling, $5 foreign. 


TANDY 2000® IS A TRADEMARK OF TANDY CORPORATION 
RAMdisk is a Random-Access-Memory based disk 


ENVISION DESIGNS 

1309 ORCHARD WAY • RICHLAND, WASHINGTON 99353 
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have global search and replace or a 
spelling checker, and the scrolling 
becomes slower the fuller the buffer 
gets. These are small trade-offs to be 
able to compose mail and send it over 
the phone lines or merge letters with 
spreadsheets and files, but these trade- 
offs may be limitations you can’t live 
with and will want to buy dedicated 
software for some of your applications. 

I point out these things not to degrade 
DeskMate , but, to give you an idea of 
why some features work the way they 
do. I think that no matter why you 
bought a computer, you will still find a 
task that DeskMate will handle excel- 
lently. While I use my 1000 mostly for 
word processing and programming, and 
the “Text” feature doesn’t contain all 
the features I need, I still find the 
spreadsheet as well as the Calculator 
and Filer meet most of my needs, and 
I make heavy use of the “Calendar” 
feature. In addition, I consistently log 
on to CompuServe, Delphi and the 
other databases using the “Telecom” 
function. 

The above leads me to the major 
advantage of DeskMate and integrated 
software. With one purchase, you get 
the major applications needed to get a 
day’s work done efficiently. In other 
words, you get the tools needed to 
increase your productivity. It would be 
an expensive proposition to buy all the 
dedicated software needed to achieve 
the variety of tasks that DeskMate 
makes available. Imagine the cost of 
buying a word processor, spreadsheet, 
telecommunications package, calcula- 
tor, database and the others that make 
up DeskMate. You would need hun- 
dreds of dollars — and some new 
shelves for all the manuals. 

DeskMate allows you to get a grasp 
on your own needs beyond the tasks you 
may already be planning to perform. 
While you may have bought a computer 
to write or perform calculations, it 
would be a shame to exclude yourself 
from the other tasks a computer can 
perform because of the high cost of 
dedicated software. With DeskMate , 
you can perform those other tasks 
without the extra expense. 

Additionally, you can find out more 
about what a computer can do and the 
features you need in your dedicated 
programs before you buy. I know many 
people who bought a computer to use 
for one specific task, but when they got 
an integrated package or talked with 
friends, they found they could perform 
tasks that were valuable to them and 
valuable to making better use of their 


machine. For example, you can log on 
to a BBS or information utility and find 
out how to make better use of Lotus 1- 
2-3 without having to spend several 
hundred dollars for a dedicated tele- 
communications program. 

To sum it up, each section of Desk- 
Mate has something to offer everyone. 
Don’t look at what DeskMate can’t do 
with your specific needs but how Desk- 
Mate can add to your overall computer 
power and productivity. 

If you’re like I am, you bought a 
computer to run a particular piece of 
software, and now you’ve found that it 
can do much more than you planned. 
DeskMate will give you an idea of what 


you can achieve with your computer. 
So, if you find that you would like to 
know more about spreadsheets or tele- 
communication or any other feature of 
DeskMate , just stick with PCM and this 
column. We’re going to cover the whole 
range of possibilities using DeskMate 
from word processing to auto-dialing 
and using your computer to host other 
computers. I’ll cover the technical as 
well as the general aspects of DeskMate 
and try to answer your questions, pass 
on tips from other readers and put 
DeskMate through the paces. Just as 
DeskMate is an integrated software 
package, we’ll integrate many subjects 
right here in PCM. rOTvTI 


^ CUSTOM SOFTWARE 
^ for your MODEL lOO or 
NEC PC 8201 A 


CBUG 

CBUG is the ultimate debugging utility for your lap computer. Requires less than 
3K RAM. 100% machine language. Features include: 


► Instruction Step 

» Call/lnstruction Step 
» Zero/Fill Memory 
* Load Data 

► Alter Registers 


• Dump Memory & Registers 

• Search/Replace 

• HEX math (4- & -) 

• Decimal — HEX conversions 

• Display in HEX or ASCII 


$29.95 


RENUMBER 

The utility you've been waiting fori Now you can renumber your BASIC 
programs IN PLACE! This powerful, 100% machine language program is 
relocatable to any convenient place in memory. Requires less than 3 K RAM 
Renumber all or part of a program. You specify line numbers and increment 


$24.95 


LET'S PLAY MONOPOLY* 

It's you against the computer and the computer is a tough competitor. Super fast 
machine language graphics display the whole board at all times. The computer 
makes all its own decisions. You're really going to love this game. $29.95 

ASSEMBLER 

A powerful 8085 assembler for your lap computer. Recognizes all the standard 
pseud-ops. Immediate data may be in decimal, hex or ASCII. Relocatable to any 
convenient place in memory. Several built-in Macros make your programming 
easier. FASTI Written in 100% machine language and requires less than 3K RAM. 

$32,95 

MELODY MAKER 

A musical program generator. Use simple cursor controls to enter sheet music. 
Melody Maker writes a program to play the song. You can even use Melody 
Maker to add musical routines to your own programs. $ 1 9.95 


CUSTOM SOFTWARE 

• 1308 Western • Wellington, Kansas 67152 • 
316/326-6197 


Please include $ 1 .00 for shipping. For orders 
outside the U.S., include sufficient postage 
for airmail delivery. U.S. funds only. 

‘Monopoly is a trademark of Parker Brothers 
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Feature 


This BASIC program turns your 
Model 100 into a BBS host 


Host Your Own Network 
with Your Model 100 


By Chuck Buchanan 


tr T^ou’re joking! Run a BBS on 
a Model 100? Who ever 
A heard of such an idea!” 

Those are the initial reactions of most 
people in Spokane until told that for the 
last nine months I’ve been running a 
very successful BBS on a 24K Model 
100 in conjunction with an auto-answer 
modem and a separate phone line. It’s 
a fantastic way to keep in touch with 
friends and associates and not have to 
play “telephone tag” with one another 
in order to do it! 

The Model 100 has to be the most 
capable and dynamic little computer to 
come down the pike in a long, long time; 
it is only natural that it be considered 
for a BBS system! This article will 
describe just how to go about setting up 
your system. As for me, all I can say is 
that telecomputing has become so easy 
and so much fun that I’ve had to buy 
(Chuck Buchanan is a self-admitted 
“computer addict” who uses micros in 
both work-related contracts manage- 
ment and hobby applications. He deve- 
loped a passion for programming in 
BASIC with his first computer [a Color 
Computer] four years ago.) 
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a second Model 100 for general use, 
and I am now using the first one exclu- 
sively for full-time BBS operations. So 
beware! 

What It Is 

The network, called “SoftMail,” is a 
full-featured BBS that allows up to 30 
members to “message” each other day 
and night. It features full password 
access and message privacy; while new 
callers may simply enter NEW as the 
password and be directed to an area 
where they may leave an inquiry, reg- 
ular members have three tries to give 
their own private password in order to 
log on. 

Once successfully “in,” callers have 
the ability to check for messages, to 
review the address list, to edit and send 
messages (with automatic line wrap), to 
receive mail, to page and enter a “chat 
mode” with the SysOp (that’s you , the 
system operator) while online and to log 
off with an accounting of how long they 
were connected. A help feature is also 
included, which will use the text file you 
may write and place in RAM as 
RLL01Z.DQ. 


The menus within SoftMail are easy, 
self-explanatory and only require touch 
selection. For the SysOp, there are extra 
features. Four function keys allow him 
or her to enter chat mode at any time 
with the caller, interrupt program exe- 
cution and give a “host off” message, 
provide a warning that the system will 
go down in two minutes and simply 
have the screen show who is online. 

SoftMail keeps a full record of who 
called, the date and time, how long they 
were online and what messages they 
retrieved, sent and deleted. This record, 
called SYSDFZ.DO, can be reviewed 
remotely by the SysOp. In addition, the 
program features full error trapping 
and will even “kick” persistent error 
makers off the system! 

During menu input, SoftMail will 
convert lowercase to uppercase so that 
there will be no errors in command or 
file recognition. In the event of a 
“sleepy” caller who dawdles more than 
two minutes without doing anything, 
the BBS will even hang up automati- 
cally and reset itself. 

Unlike other remote BBSs, which 
allow the caller’s keyboard to duplicate 
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the host’s console, SoftMail treats 
external input/ output as a remote file, 
and the BASIC BBS program stays in full 
control at all times, with the host’s LCD 
screen only showing significant menu 
selections and input as the caller writes 
messages. 

But It s So Small 

Now you ask, why network with a 
100 ? 

There are a number of reasons why 
the 100 is a perfect choice: 

• Because it has no moving parts to 
wear out, no disks to replace; all mes- 
sages (and the hidden log file SY5DF) are 
maintained in RAM, designated as BBS 
files by the suffix Z.DO 

• By using the INPUTS command for all 
input, the system is able to avoid sab- 
otage or interruption through a hostile 
CTRL-C or BREAK command invoked by 
a caller. 

• The size of the 100 makes it highly 
suitable for applications which need a 
full BBS without wanting to have to 


endure the complexity and size of other 
systems. 

• Because everything is in RAM, it is 
instantly accessible for review by the 
SysOp. Responses can be written from 
the host side by simply using the text 
program (inserting carriage returns) 
and labeling the messages with titles 
that the BBS can recognize. 

• Since it is a non-mechanical system, 
there is no need to fear a “runaway” 
computer — disk drives smoking into 
oblivion. Using the I PL feature, the 
BBS can even survive power outages. 

• Finally, it’s just plain fun to have so 
much going on so simply in such a 
compact little package! 

Getting It Together 

Type in the program and save it as 
BBS . BA. 

Using I PL, instruct your 100 to exe- 
cute BBS in case of power interruption. 
Create a message similar to that in 
“Message 1” and save it to RAM as 
ALL01Z _ DO. This is the message that 


will be listed to the caller if he or she 
selects HLP from the menu. It will also 
be listed from within the BBS directory 
(CHK) and may be retrieved in that 
manner as well. 

Be sure to set up your caller and 
password files in lines 1000 through 
1004, being sure to follow the desig- 
nated format (a two-digit number for 
the member, one space, the member’s 
name, followed by a comma and then 
the three-letter password for that 
member). You may also wish to adjust 
GOSUB 80 to include the commands 
your particular modem requires to 
disconnect the phone when you log off 
or receive a “denied access” message. 
Furthermore, Program Line 4 is op- 
tional and only serves to initialize a 
modem; you may want to delete it if you 
don’t need it. 

Connect an auto-answer modem to 
the RS-232 port. Important: set your 
modem for non-verbose, “quiet” mode 
with no echo and with auto-answer 
enabled. Plug everything in and run the 
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Message 1, Sample RLL01 help file 

Welcome to the Model-100 EBBS, 
providing 24 Hour/Day Communica- 
tions Networking! ! 

SoftMail is now running on a 

< TRS Model 100 !! > 

For MENU Selections you need only 
PRESS the KEY; do NOT use <enter> 
unless entering Mail Titles or 
inputting numbers. 

Use Ctrl-5 to Stop Display: 

Ctrl -Q to Start again- . . 

Throughout, the AT Key func- 

tions as an ESCAPE Key - 


You may press at any prompt 

and you will go to the PREVIOUS 
Menu. From the Top Menu, the <(?> 
will log you Off. 

Use <Chk> to see if you have any 
MAIL; if so, the Title’s LEFT 3 
Letters will match those of your 
Name or Initials. 

Enter that plus the two Digits. 

Please be sure to Log Off before 
hanging up. . . 

Happy Telecomputing ! ! ! 

Sincerely, 

Your Friendly Local SysOp! 


program. After a few seconds, you’ll 
hear a beep, the screen will clear, show 
the current files, state Awaiting at:, 
the setup (or reset-up) time, give the 
current memory space remaining and 
(once you’ve had the first caller) show 
the name of the last person online. 

When someone calls (try it) they’ll be 
prompted to press an asterisk (*). This 
gets things going — the host screen will 
say BUSY and the four function key 
options will be displayed. They will then 
be asked for their password and will be 
sent to the main menu. A special mem- 
ory peek technique allows for a review 
of BBS-related mail. When the caller 
presses C for checking mail, he or she 
will be shown the messages that are BBS 
files. 

The program only displays messages 
(files) with the flag of $$$88Z . DO. BBS 
messages always follow the format of 
the left three characters matching the 
caller’s name or initials and the next two 
characters being digits representing the 
message number. The caller never sees 
the Z . DO, as it is always added discretely 
by the system. 

The special log file SYSDFZ . DO is not 
displayed, but the SysOp always knows 
it’s there, and can retrieve it from a 
remote location (and erase it to restore 
memory) at any time. If the thought of 
a RAM-based log makes you nervous, 
simply hook up a printer and change 
Line 11 to: 

11 OPEN "LPT:" FDR OUTPUT AS 4: 

RETURN 

The SysOp file symbols are: 4 8’ — 
who called and when; 4 <’ — messages 
retrieved; ‘0’ — erased or 4 >’ — sent and 
‘=’ — log off with usage time. An nle 
entry indicates a denied access situa- 
tion, and time means the caller got 
disconnected by the BBS due to overdue 
input. A *?’ denotes a BBS error re- 
corded, and a ‘[’ indicates that the 
program incurred the same error twice 


and started all over. This will probably 
only happen if some “clever” caller tries 
to zap you with a CTRL-Z. 

Callers may write to anyone but can 
only retrieve their own messages or 
those addressed to “all.” The SysOp, 
however, can retrieve and delete any- 
thing. Furthermore, while anyone can 
originate an “all” message, only the 
SysOp can delete one. 

The edit features of the BBS are fun 
— play with them! They will allow a 
line-by-line review, adding a line, edit- 
ing a portion of a line and deleting a 
line. Once a person elects to return to 


the main menu, they are asked if they 
want to send the message. They may 
answer either way; if they do not send 
it immediately, they may go back down 
to the work desk at a later point and 
send the message then, or they may start 
another message. 

If you have a Disk/ Video Interface, 
you may wish to expand the BBS to 
include other services, related programs 
which could be on disk and chained 
online. For example, my current BBS 
features access to any number of Ad- 
venture games which callers may dial up 
and play. □ 


The listing: 

1 REM Greetings! (leave this line in) v. 
1200a/pcm 

2 REM BBS100 Program <c> 1984 by Chuck 
Buchanan, Spokane, WA 509-624-0262 or C 
IS 72335,1301 

4 CLOSE : CLEAR1500 : MAXFILES=4 : ONERRORGOTO 
60 : GOSUB10 : GOSUB39 : PRINT#1 , "AT" : GOSUB35 : 


TANDY 200 24K EXPANSION MODULES $99 


8K MEMORY MODULE $29 


CALL FOR 

latest price 


For your Model 100 & NEC PC-8201. Field proven 

SI DESTAR $399 

128K RAM DISK CARTRIDGE 

For the Starlet NEC PC-8401 

SIDECAR 128K RAM CARTRIDGE $259 

Plugs into side of the NEC PC-8201 


fiScOMFHJTING 


420 Constitution Ave. 
Camarillo, CA 93010 


(over 30,000 in use), factory tested and fully supported. 

Portable Thermal Printer 

TTXpress MODEL 1280 $139 

Battery opperated, 2.2 lbs., 8 V 2 ” paper, 40 cps., parallel. 

FREE SHIPPING, HANDELING & INS. FOR CONT. USA. 

Orders shipped UPS next business day. 30-day satisfaction, 
money back guarantee. We accept Visa, M/C & Amer. Exp. 
Checks held 18 days. 

( 600 ) 732-5012 (805) 987-4788 (in cant.) 
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PRINT#1 , "ATS2=92S0=2" : GOSUB35 : GOSUB39 : GO 
SUB80 

5 CLOSE : BEEP : CLEAR1500 : POWER CONT:MAXFIL 
ES=4 : ONERRORGOTO60 : GOSUB10 : ONKEYGOSUB88 , 
120 , 125 , 128 

6 KEYON: DEFINTA-Z : DEFSTRJ ,W:DIM W(32) ,N$ 
(32) ,P$(32) : MN=10+VAL(RIGHT$ (TIME$ , 2) ) : G 
0T0135 

8 IFZD=4500THENERROR60ELSEZT=PEEK( 65414) 

: I FZT=0THENZD=ZD+1 : G0T08ELSEPRINT"< " ; : K 
$-INPUT$ (1,2): IFK$=CHR$ ( 8 ) THEN 8 ELS EZD=0 : 
PRINTK$ : IFASC(K$)>9 6 ANDAS C ( K$ ) <1 2 3THENK$ 
=CHR$ ( AS C ( K$ ) - 3 2 ) : RETURNELS ERETURN 

9 FORZ=lTOLEN(TK$) : IFASC(MID$(TK$ , Z, 1) )> 
96THENMID$ (TK$ , Z , 1)=CHR$ (ASC(MID$ (TK$ , Z , 
1 ) ) - 3 2 ) : NEXT : RETURNELS ENEXT : RETURN 

10 GOSUB11 : OPEN" COM: 38N1E"F0R0UTPUTAS1 : 0 
PEN " COM : 3 8N1E " FORINPUTAS 2 : RETURN 

11 OPEN" SYSDFZ . DO " F0RAPPENDAS4 : RETURN 

13 PRINT#1 ,: PRINT #1,"* press asterisk < 
*> to go on": PRINT "< " ; : K$=INPUT$ (1 , 2) : P 
RINTK$ : I FK$0 " * " THEN1 3 ELS EPRINT#1 , "> Bra 
vo ! " : PRINT#1 , : PRINT#1 , : RETURN 

17 PRINT#1 , : PRINT#1 , "* select <Y> or <N> 

fl . 

» 

18 GOSUB8 : IFK$="Y"ORK$="N"THENPRINT#l , :P 
RINT#1, : RETURNELS El 7 

20 PRINT: PRINT: PRINT "$ "K$" Menu": PRINTS 
TRING$ (39, 95 ): PRINT: RETURN 

25 GOSUB33 : PRINT#4 , "# "LEFT$ (UI$ , 3) " "DA 
Y$" "LEFT$(TIME$, 5) : RETURN 

26 PRINT#4 , "< " EB$ : RETURN 

27 PRINT#4 , "> " ID$ : ID$=" " : DE=DE+1 : RETURN 

28 PRINT#4 , "0 "EB$:DE=DE-1: RETURN 

29 PRINT#4 , "LEFT$ (UI$ , 3) " - "K$" "LEFT$ 

(DATE$ , 5) " "MM(3) : RETURN 

30 PRINT#1, STRING$( 31, 61 ): RETURN 

32 PRINT#1 , STRING$ (31 , 95) : RETURN 

33 PRINT#1 , CHR$ ( 7 ) : RETURN 

35 FORZ=1TO300: NEXT: RETURN 

36 FORZ=1TO1000: NEXT: RETURN 

39 F0RX—1T08 : PRINT#1 , : NEXT : RETURN 

40 PRINT#1,"* 30 Lines by 32 Chars Max": 
GOSUB30 : PRINT#1 , "* Use the AT Key <@> to 

QUIT" : PRINT#1 , : PRINT#1 , 

41 IFLZ=31THENPRINT#1 , : PRINT#1 , "* buffer 
full" :GOSUB36 : LZ=LZ - 1 : A=LZ : RETURN 

42 IFLZ=20THENGOSUB33 : PRINT#1 , : PRINT#1 , " 
* only 10 lines left" : PRINT#1 , 

43 K$=MID$ (STR$ (LZ) ,2) : IFLZ<10THENK$="0" 
+K$ 

44 PRINT#1 , LEFT$ (K$ , 2 ) ; :GOSUB50:W(LZ)=TK 
$ : I FK$ = " @ " THENA=LZ : RETURN 

46 1 FLEN ( W ( LZ - 2 ) ) <3 ANDLEN ( W ( LZ - 1 ) ) <3 ANDL 
EN ( W ( LZ ) ) <3THENLZ=LZ - 1 : A=LZ : RETURN 
48 LZ=LZ+1 : G0T041 

50 K$=" " : TK$=" " : PRINT#1 , "> ";:PRINT"+ 

52 IFZD=4500THENERROR60ELSEZT“PEEK( 65414 
) : I FZT=0THENZD=ZD+1 : G0T052ELSEK$=INPUT$ ( 


1,2): ZD=0 : I FK$=CHR$ ( 8 ) ANDLEN (TK$) >0THENP 
RINT#1 , K$ " "K$ ; : PRINTK$ " "K$ ; : TK$=LEFT$ ( 
TK$ , (LEN(TK$) -1) ) :G0T052 

54 TK$=TK$+K$ : IFK$=CHR$ (13)ORK$="@"THEN5 
8 

55 1 FLEN ( TK$ ) >2 8ANDK$=CHR$ (32) THEN58 

56 PRINT#1 , K$ ; : PRINTK$ ; : G0T052 

58 PRINT#1 , : PRINT : TK$=LEFT$ (TK$ , (LEN(TK$ 
) - 1 ) ) : RETURN 

60 PRINT: BEEP: PRINT"? Error" ERR" in" ERL :P 
RINT : IFERR=60THENGOSUB39 : PRINT#1 , "* over 
due input. . . ":PRINT#1, :K$="time" :GOSUB75 
: GOSUB80 : GOSUB29 : RESUME1 

61 IFERR=FKTHENFK=500 : CLOSE : GOSUB10 : PRIN 
T#1 , : PRINT#1 , : PRINT#1 , "* CLOSED ERROR LO 
OP" : PRINT#4 , " [ "LEFT$ (UI$ , 3 ) : PRINT#1 , : GO 
SUB75 : GOSUB80 : GOSUB29 : RESUME1 

62 IFERR=520RERR-55THENCL0SE3 : GOSUB11 : PR 
INT#1 , : PRINT#1 , "* note not found as spel 
led" : EB$=" " : GOSUB33 : PRINT#1 , :RESUME155 

63 IFERR=54THENFK=54 : CLOSE : GOSUB10 : RESUM 
E 

64 CLOSE : GOSUB10 : PRINT#1 , : PRINT#1 , "* bbs 
error #" ERR" in "ERL: PRINT#4 , " ? BBS #"ER 

R"/"ERL:GOSUB33 : PRINT#1 , "> re-log necess 
ary" :PRINT#1, :FK»ERR:Y=0:RESUME137 

65 PRINT#1 , : PRINT#1 , "* thank you, "UI$:G 
OSUB75 : GOSUB80 : GOSUB29 : G0T0135 

75 A$(2)-TIME$:PRINT#1,"* Log Off at "A$ 
(2) : PRINT#1 , : PRINT#1 , "* Elapsed time:";: 
I FA$ ( 1 ) = " " THENMM ( 3 ) =0 : G0T07 8 ELS EFORZ-1TO 
2 : MM ( Z) =VAL (MID$ ( A$ ( Z) , 4 , 2 ) ) : NEXTZ 

77 IFMM(2)=MM(1)THENMM(3)=1ELSEIFMM(2)>M 
M(1)THENMM(3)=MM(2) -MM(l)ELSEMM(3)-(60-M 
M(1))+MM(2) 

78 PRINT#1 ,MM( 3) "Minute" ; : IFMM(3)OlTHEN 
PRINT# 1, "s" 

79 PRINT#1 , " ": RETURN 

80 BEEP : PRINT"* hangup" : PRINT#1 , : PRINT#1 
, "* please hang up now. . . " : PRINT#1 , :PRIN 
T#1 , "> Off \\\" ; : GOSUB36 : GOSUB36 : PRINT# 
1 , "\\\" ; : GOSUB36 : PRINT#1 , "ATH" : CLOSE : GOS 
UB10: RETURN 

85 PRINT#1, :PRINT#1, "* Sysop Chat Mode": 
PRINT#1 , : PRINT#1 , "* now paging Sysop .. 

" : PRINT#1 , : PRINT#1 , " " ; : FORX-1TO10 : BEEP : 
GOSUB36 : PRINT#1 ,X; : NEXT : PRINT#1 , :GOSUB30 
: PRINT#1 , : PRINT : BEEP 

86 PRINT#1 , "* if SYSOP doesn't answer" :P 
RINT : PRINT#1 , " in next TEN SECONDS the 
n":PRINT#l," he's not in attendance" : PR 
INT"* key 1 NOW ! " : PRINT#1 , "* wait 10 se 
c . . " : FORX=1TO4000 : NEXT : G0T0155 

88 BEEP : GOSUB33 : PRINT#1 , : PRINT#1 , "* Hell 
o, "UI$" ! ! This": PRINT "* now in Chat 
with "UI $: PRINT : PRINT#1, " is SYSOP... 
You still there ?":PRINT#1, 

90 GOSUB33 : PRINT#1 , "* your entry., press 
<enter> to" : PRINT#1 , " send or <@> to e 
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xit Chat" : PRINT#1 , : PRINT 

92 GOSUB50 : IFK$=CHR$ (13)THENPRINT : PRINT : 

GOTO100 

94 IFK$="@"THENPRINT: PRINT"* exited...": 

G0T0115 

96 G0T092 

100 BEEP : PRINT#1 PRINT "* your turn <en 
ter or @>" : PRINT :PRINT#1, 

102 GOSUB105 : IFK$=CHR$ (13)THENPRINT#1 , :P 
RINT : GOTO90 

103 IFK$="@"THENPRINT:PRINT#1, :G0T0115 

104 GOTO102 

105 K$=" " : TK$=" " : PRINT "> " ; : PRINT#1 , "$ " 

107 K$-INPUT$ ( 1 ) : I FK$=CHR$ ( 8 ) ANDLEN ( TK$ ) 
>0THENPRINT#1 , K$ " "K$ ; : PRINTK$ " "K$ ; : TK$ 
=LEFT$ (TK$ , (LEN(TK$) -1) ) : GOTO107 

108 TK$=TK$+K$ : IFK$=CHR$ (13)0RK$="@"THEN 
112 

109 I FLEN ( TK$ ) >2 8 ANDK$=CHR$ ( 3 2 ) THEN1 1 2 

110 PRINT#1 , K$ ; : PRINTK$ ; : GOTO107 
112 PRINT#1 , : PRINT : RETURN 

115 K$«" " : TK$=" " : PRINT#1 , : PRINT#1 , "* bye 
"UI$ : PRINT#1 , "> Please be sure to Log 0 
ff " : RETURN 

120 PRINT#1 , : PRINT#1 , " ! HOST OFF..." :GOS 
UB80: CLOSE : CLS : PRINT"* System off at "TI 
ME$ : GOSUB36 :MENU 


125 BEEP : GOSUB39 : PRINT#1 , "* WARNING: Sys 
tern Going" : PRINT#1 , " DOWN in Two Minute 
s" : PRINT#1 , : PRINT"* warning done” : RETURN 
128 PRINT :PRINT"> User: "UI$ : PRINT :RETUR 
N 

135 A=0 : N=0 : Y=0 : LC$=UI$ : UI$=" " : ID$=" " : RC 
=FRE ( " ") :RC=0:A$(1)=" " 

137 CLS: FILES: PRINT: PRINT" awaiting at: 
"TIME$ : PRINT" free memory : ”FRE(0) : PRINT 
" last online: "LC$ :K$=INPUT$(1 , 2) :GOSU 
B13: PRINT: PRINT"* BUSY !": BEEP : PRINT: PRI 
NT : GOSUB33 

139 PRINT "Chat Stop Caut Who?" : PRINT: RES 
TORE1000 : F0RX=1T032 : READN$ (X) ,P$(X) :NEXT 
141 G0SUB39 : PRINT#1 , "* Welcome to the BB 
S-100 ! ! " : GOSUB30 : PRINT#1 , "> Please Log 
on: " :PRINT#1, :PRINT#1, "* if NEW, use NEW 
as Password" : PRINT#1 , : PRINT#1 , : PRINT#1 , 
"* enter password:" 

143 G0SUB147 : PRINT#1 , : IFJ="NEW"THEN300EL 
SEF0RX=1T029 : IFJ=P$ (X)THENUI$=MID$ (N$ (X) 
,4) :X=29 : G0T0153 

145 NEXTX: Y=Y+1 :GOSUB33 : PRINT#1 , "* acces 
s denied - - "Y: IFY>2THENPRINT#1 , : PRINT#1 , 
"* log-on error . . . " : GOSUB33 : GOSUB80 :MM( 
3 ) =0 : UI $="nle " : G0SUB2 9 : GOTO 1 3 5 ELS EG0T014 
1 

147 J-" " : PRINT#1 , : PRINT#1 , "> " ; : F0RZ=1T0 


Our new Interface Card lets you 
connect your MS-DOS computer to the 
outside world to control and monitor 
devices and instruments 



The BG-Board Interface System provides buffered access 
to the control, data, and address buses of the computer. 
Specially designed CableCards orient the signals to and 
from the BG-Board and many popular computers. The new 
BG-119 CableCard brings the MS-DOS machines into the 
fold with the previously available CableCards for the Model 
1 1 1/4, Apple II, Commodore 64, and VIC-20. Our new catalog 
describes the system and more than 100 books on inter- 
facing, electronics, and personal progress plus some 
scientific and utility software that can simplify data analysis 
and computer performance. Write or call for it and the 
special sale now in progress. 703-651-3153 



Qroup £Technology, J2ld. 

P.O. BOX 87 • CHECK, VIRGINIA 24072 


Trademarks - MSDOS, Microsoft. Apple H, Apple Computer, Inc. 
Commodore 64 and VIC-20, Commodore Business Machines, Inc. 


LOW LOW PRICES 
on 

Hard Disk Drives 
Floppy Disk Drives 
Star Printers 
Anchor Modems 
Diskettes 

Color Computer Dr ft 

Dual ps& case 


Single ps&case $44.95 
Color Computer Controller (J&M) 

DBLV.E Q FOR -BA^Q-ShiACK C OLOR COMPUTER 


. $79.95 

$129.95 




TANOON.MPt OH TEAC DRIVE! SINGLE SIDED 40 TRACKS SPEED 5 MS TRK TO TRK& UP 
POWER SUPPLY and CASE TWO ORIVE CABLE WITH ALL GOLD CONNECTORS . 

J&M CONTROLLER MANUAL and DOCUMENTATION $32895 $ SALE! 

^■DRIVE flFQR RADIO SHACK COLOR COMPUTER 

d- PANASONIC V2 HEIGHT DOUBLE SIOEO DOUBLE DENSITY DRIVE 500K unformatted 0 

* 0 ^‘ POWER SUPPlYand CASE, 2 ORIVE CABLE WITH ALL GOLD CONNECTORS 

J&M CONTROLLER MANUAL and DOCUMENTATION $39995" , , ^ SALE! 

TAKE AOOED SAVINGS ON TWO DRIVE SYSTEMS 

DISKETTES with free library case $1795 

Unadvertised Specials $Call 

Drives cleaned, aligned 8ctested * * 7 $29.95 

TECHNICAL STAFF ON DUTY PLEASE CALL FOR ASSISTANCE 


CALL US TODAY!! (617)234-7047 •DEALER INQUIRIES INVITED 

ORDER TOLL FREE 1-800-635-0300 (617)234-7047 

-—1 TRUE DATA P RODUC TS 

r JM 195 Linwood Slreel. P.O. Box 546 We welcome 



Linwood. Massachusetts 01525 
(617) 234-7047 


HOURS MON SAT 9 6 EST 


•Visa Master Charge 3Z •- 
• Checks allow 2 weeks (or clearing • 
•COD Add 52 00 
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3 : G0SUB8 : PRINT#1 , Z ; : J=J+K$ : NEXTZ : PRINT#1 
, : RETURN 

153 PRINT#1 , : PRINT#1 , "* Log On: "DAY$ " " 
DATE$ " " LEFT$ (TIME$ , 5) : PRINT#1 , : PRINT#1 

, :PRINT#1, "* Welcome, ";UI$;" !!":GOSUB3 
6 : GOSUB25 : A$ ( 1 ) =TIME$ : PRINT#1 , : PRINT#1 , " 
* <Ctrl-S>=Hold <Ctrl-Q>=Flow" : PRINT#1 , 
155 K$-"Main" : GOSUB2(2 : GOSUB39 : PRINT#1 , "* 
SoftMail- 1(2(2 EBBS: " DAY$ " "LEFT$ (TIME$ 

, 5) : GOSUB32 : PRINT#1 , "* select first lett 
er" : PRINT#1 , : PRINT#1 , : PRINT#1 , "> Chk Get 
Snd Dwn Tlk Hip Off " ; 

157 G0SUB8 : Z=INSTR( "CGSDTHO@" ,K$) : IFZ=(2T 
HEN157ELSEGOSUB39 : 0NZG0T016(2 , 17(2 , 18 (2 , 2(2(2 
,85,159,65,65 
159 EB$="ALL(21" :G0T0174 

16(2 DE=(2 : PRINT#1 , "* Current Messages :":G 
OSUB3(2 : PRINT#1 , : FORZ ! =6393(2 ! T064139STEP1 
1 :B$=" " :IFPEEK(Z! )=J2THEN166 
162 F0RZI=3T01J2 : B$=B$+CHR$ (PEEK(Z ! +ZI) ) : 
NEXTZI : IFINSTR(B$ , "ZDO" )<1THEN166 
164 IFLEFT$(B$,5)0"SYSDF"THENPRINT#1, " 
"LEFT$ ( B$ , 5 ) " " ; : DE=DE+1 : IFDE=30RDE=60 

RDE=90RDE=12THENPRINT#1 , 

166 NEXTZ ! : IFDE=J2THENPRINT#1 , "* none" 

168 PRINT#1 , : PRINT#1 , : PRINT#1 , "* Mem : " FR 
E(J2)" Str : "FRE(A$) " Mgs : "DE : GOSUB3(2 : PRIN 
T#1 , "* Copyright 1984 C. Buchanan" : G0T01 
55 

17(2 PRINT#1,"* Get Mail :": PRINT#1 ,: PRINT 
#1,"* enter TITLE or <enter> to abort" :P 
RINT#1 , : GOSUB5(2 : IFLEN (TK$)>3THENGOSUB9 

171 EB$=LEFT$ (TK$ , 5) : IFLEN(EB$)<5THEN155 
ELSEIFLEFT$ (EB$ , 3)="ALL"THEN174 

172 IFLEFT$(EB$ , 3)OLEFT$ (UI$ , 3)ANDLEFT$ 
(UI$ , 3)<>"SYS"THENGOSUB33 : PRINT#1 , : PRINT 
#1,"* that's not yours ! ! " : PRINT#1 , : PRIN 
T#1 , :G0T017J2 

174 CL0SE4 : GOSUB39 : PRINT#1 , "* now gettin 
g "EB$ : OPENEB$+"Z . D0"F0RINPUTAS3 : PRINT#1 
, : GOSUB32 : PRINT#1 , 

175 IFNOTEOF ( 3 ) THENLINEINPUT#3 , W : PRINT#1 
,W:G0SUB35:G0T0175 

176 CL0SE3 : G0SUB11 : GO SUB 2 6 : GOSUB32 : IFLEF 
T$ (EB$ , 3)0"ALL"ANDLEFT$ (EB$ , 3)<>"(2 : D”TH 
ENPRINT#1 , : PRINT#1 , "* TOSS "EB$" ?”:GOSU 
B17 : IFK$="Y”THENCLOSE : KILLEB$+"Z . DO" : GOS 
UB1J2 : PRINT#1 , "* deleted" : GOSUB28 

178 EB$=" " : G0T0155 

18(2 IFDE<15ANDFRE((2)>14(2(2THENPRINT#1, : PR 
INT#1 , "* Send Mail : " : GOSUB196 : IFK$="Y"TH 
ENRC=(2 : G0T0184ELSEG0T0155 
182 PRINT#1 , : PRINT#1 , "* sorry, BBS tempo 
rarily full" :G0T0157 

184 PRINT#!,"* review address book ?":G0 
SUB17 : I FK$= " Y " THENPRINT#! , : PRINT#1 , "* SE 


Super 
Utility 

for PC/MS-DOS™ 

Fixed/Floppy Disk-Tools for IBM PC™, XT™, AT™, 
Tandy 1000, 1200, 2000 and other compatibles. 

Data file recovery, disk exploring, 
zapping, ana MUCH more! 

Accidental deletions and disk directory problems can happen to 
anyone at anytime... a power spike, fingerprint, speck of dust, 
hardware problem, or simply typing DEL V in the wrong sub- 
directory can destroy critical data in a moment without warning. 
Therefore we introduce Super Utility for the PC - an easy to use 
disk utility containing many functions sorely needed in today’s 
PC/MS-DOS computing environment, it’s really great! 

With SU/PC you can restore damaged or deleted files using two 
different methods (one very easy, the other a bit tougher). Even 
clusters of an erased file assigned to another file can still be 
restored, unless the user has physically written over every byte of 
the original data (most applicable with word processing files). 

In addition to file repair and recovery, Super Utility provides 
sector verify, sector editing, modification of sectors in Hex or ASCII, 
ease of renaming of files and setting their attributes (lock and 
unlock files, etc.), string search, copying sectors to a file, diagnostic 
sector checking, mapping of the FAT table of a file or an entire 
drive, visual graphics pertaining to your system, and full directory 
and sub-directory editing without endless menu-hopping - all in 
one program. Want to change the name of your sub-directrory 
without copying all your files to a new one? Just retype a new name 
over the old one with SU/PC! The sector display mode displays all 
512 bytes on-screen at one time and allows you to fully explore 
your disks. SEARCH and CHANGE are nice here too! Will find any 
occurance of a byte or string on your disk. Compatible with DOS 
versions 2.0 - 3.1 on most systems. Some computers may require 
the use of PC-DOS. Color, composite, or monochrome video are 
supported. A great tool for fixed disk users as well as floppy. Also 
compatible with IOMEGA’S Bernoulli Box™ storage device (soon to 
be distributed by Tandy as the Disk Cartridge System). Easily the 
most POWERFUL PC/MS-DOS disk utility available today. Please 
do not confuse the MS-DOS version of Super Utility with the 
TRS-80™ version. Super Utility for MS-DOS is NOT SU+ 
from the TRS-80 " ported over". SU/PC is a totally new 
program that fills the gaps that PC users have most need of and 
have asked us for. It’s aimed at the beginner, the "office user", 
hobbiests, students of the PC, or programmers alike. 

So, why not be certain about the safety of your data (and your 
peace of mind) when you can have Super Utility/PC disk 
insurance right on hand at an unusually low price? Make your new 
computing life easier, more fun, and knowledgeable all at the same 
time. Unprotected media. 

• Introductory Offer • 

Super Utility/PC 


only 


$89.95 




17060 Dallas Parkway, Suite 114 
Dallas, Tx 75248 • 214/733-4475 

Prepaid or charge card orders (only) include free UPS shipping to US addresses! Blue 
label, COD, or over-night shipping available at extra charge. Visa«MasterCard 
accepted. Canada, please add $3; airmail. Other countries add $15 for airmail. 
Foreign orders, please use Charge Cards ONLY. Checks not drawn on US banks not 
accepted. Texas residents must add appropriate sales tax! 

Requirements: IBM PC or compatible running PC/MS-DOS 2.X-3.X, minimum of 128K 
memory, and at least one disk drive. PC-DOS may be required for use. 

IBM, PC, XT, & AT are registered trademarks of International Business Machines 
Corp. MS is a reg. trademark of Microsoft. TRS-80 is a reg. trademark of Tandy Corp. 
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ND TO : " : PRINT#1 , : F0RX=1T032 : PRINT#1 , " " 

N$(X) :GOSUB35 :NEXTX 

186 PRINT#1 , : PRINT#1 , "* elect l-32:":GOS 
UB 5 0 : RC=VAL ( TK$ ) : I FK$= " @ " THEN1 5 5 ELS E I FRC 
<10RRC>3 2THEN1 8 6 ELS El FRC=3 1THENRC=0 : GOTO 
184ELSEIFRC=32THENRC=0 : G0T0155 
188 PRINT#1 , "* writing to: " ;MID$ (N$ (RC) 

,4) : ID$=MID$ (N$ (RC) , 4 , 3)+MID$ (STR$ (MN) , 2 
):W<1)=»* from: "+UI$ : W(2)=" "+DA 

Y$+" "+LEFT$ (DATE$ , 5)+" at "+LEFT$(TIME$ 
,5) : W(3)=" " : LZ=4 : GOSUB40 : GOTO205 
196 IFID$0""THENPRINT#1, :PRINT#1, "* CAU 
TION: Abandon "ID$" ?" :GOSUB17 : IFK$="N"T 
HENRETURN 
198 K$="Y" : RETURN 

200 IFID$=""ORID$=" " ORI D$= " Z " ORI D $= " z " 0 
RA—0THENPRINT#1 , : PRINT#1 , "* nothing ther 
e" : G0T0155 

205 PRINT#1 , :K$="Work" :GOSUB20:PRINT#1, : 
PRINT#1 , "* Work Area Message: "ID$:PRIN 

T#l,"# lines: " ; A: PRINT#1 , : PRINT#1 , "> 

Read Edit Menu " ; 

207 GOSUB8 : Z=INSTR("REM@" ,K$) :IFZ=0THEN2 
07ELSEPRINT#1 , : PRINT#1 , : ONZGOTO210 ,250,2 
20,220 

210 PRINT#1 , : PRINT#1 , : F0RX=1T0A : PRINT#1 , 

W(X) : GOSUB35 : NEXT : GOTO205 

220 PRINT#1 , "* Send "ID$" ? " : G0SUB17 : IFK 

$=”Y"THEN222ELSE155 

222 PRINT#1 , : PRINT#1 , "* now sending: ";I 
D$ : OPENID$+"Z"+" . DO"FOROUTPUTAS3 : F0RX=1T 
OA : PRINT#3 , W(X) : NEXTX : CL0SE3 : MN=MN+1 : GOS 
UB27 : PRINT#1 , : G0T0155 

250 K$="Edit" : GOSUB20 : IFA>3THEN252ELSEPR 
INT#1 , "* you ruined an eraser PRINT# 
1," begin again. :G0T0155 
252 PRINT#1,"* select edit line # 4 -"A: 
GOSUB50 : N=VAL(TK$ ) : IFK$="@"THEN205ELSEPR 
INT#1 , :PRINT#1, : IFA<4THEN200ELSEIFN<4 OR 
N>ATHEN252 

254 PRINT#1 , : PRINT#1 , : PRINT#1 , "> ”W(N) : P 
RINT#1 , "#"N"of "A : PRINT#1 , : PRINT#1 , " ? 

Fw Rv Ed Ad D1 To Qt " ; 

256 G0SUB8 : PRINT#1 , : IFK$="F"ANDNOATHENN 
-N+1:G0T0254 

258 IFK$="T"THENPRINT#1 , "* ";UI$;" to " 

MID$ (N$ (RC) ,4) :G0T0256 

260 IFK$-"R"ANDN>4THENN=N- 1 : G0T0254 

262 IFK$="Q"ORK$="@"THEN200 

264 IFK$-"D " ANDN>3THENF0RC=NT0 ( A- 1 ) :W(C) 

-W((C+1)) :NEXTC:A=A-1:G0T0294 

266 IFK$="A"ANDN<=A AND A<30THENA=A+1 : FO 

RC=AT0(N+2) STEP-1 :W(C)=W(C-1) :NEXTC:PRI 

NT#1 , : N=N+1 : GOTO290 

268 IFK$="E"THENPRINT#1 , :PRINT#1, : PRINT# 
1 , old" ; : GOSUB50 : 0$=TK$ : PRINT#1 , "> new 
" ; : GOSUB50 : L1=LEN ( 0$ ) :G0T0282 
276 IFK$="R"0RK$="D"THENPRINT#1 , : PRINT#1 
, "* can't enter masthead" : G0T0256 


280 G0T0256 

282 F0RZ=1T0LEN(W(N) ) : IF0$=MID$ (W(N) , Z , L 
1)THENZE=Z- 1+L1 :RS$=LEFT$ (W(N) , Z- 1)+TK$+ 
RIGHT$ (W(N) , LEN (W(N))-ZE) :W(N)=RS$ 

284 NEXT : G0T0254 

290 PRINT#1 , "* input new line" :GOSUB30:G 

OSUB50 : W(N)=TK$ : G0T0254 

294 IFA=3THEN A=0 : N=0 : ID$=" " : PRINT#1 , : PR 

INT#1 , "* edited away. . . " :G0T0155 

296 IFN>ATHEN N=A:G0T0254 

298 G0T0254 

300 A$ (1)=TIME$ :UI$="NEW" : GOSUB25 : PRINT# 
1 , : PRINT#1 , "* HELLO ! ! " : PRINT#1 , "* you h 
ave dialed the BBS-100. . . " :PRINT#1, :PRIN 
T#l,"* to use service please give:":PRIN 
T#1 , 

302 PRINT#1 , "* name: " : GOSUB50 : W( 2 ) =TK$ : 
IFLEN(W(2) )<3THENPRINT#1 , "* please respo 
nd . . . " : GOTO302 

304 PRINT#1 , "* thanks, " ;W(2) : PRINT#1 , "* 
please continue ..." 

306 PRINT#1 , "* address: " :GOSUB50:W( 3) =TK 
$:PRINT#1,"* city, state, zip : " : GOSUB50 : 
W(4)=TK$ : PRINT#1 , "* phone: " : GOSUB50 :W(5 
)=TK$ 

308 W(1)=DATE$+" "+TIME$ : ID$=" SYS "+MID$ ( 
STR$(MN) ,2) 

310 PRINT#1,"* please state how we may": 
PRINT#1 , " be of assistance PRINT#1 , 
:PRINT#1,"* If you intend to call back," 

: PRINT#1 , " Leave a <3> Letter Password" 

311 PRINT#1 , " in Your Message, one that 
" : PRINT#1 , " You will use for Future Acc 
ess . " : PRINT#1 , : LZ=6 : GOSUB40 : PRINT#1 , 

312 UI$=W(2) : PRINT#1 , "* thank you for yo 

ur message, " :PRINT#1, " " ;W(2) : PRINT#1 , : 

PRINT#1,"* where pertinent, a Response": 
PRINT#1," will be put Online for the":P 
RINT#1 , " next 48 hours . . . " : PRINT#1 , 

314 PRINT#1 , "* now saving: " ; ID$ : 0PENID$ 
+ " Z "+ " . DO " FOROUTPUTAS 3 : F0RX=1T0A : PRINT#3 
, W(X) : NEXTX : CL0SE3 : MN=MN+1 : GOSUB27 : PRINT 
#1, : GOTO 6 5 

1000 DATA "01 SYSOP" ,PW1, "02 AAAAAA" , PWA , 
"03 BBBBBB" , PWB , "04 CCCCCC" , PWC , "05 DDDD 
DD" , PWD , "06 EEEEEE" , PWE , "07 FFFFFF" , PWF, 
"08 GGGGGG" , PWG , "09 HHHHHH" , PWH , 10 IIIII 
I,PWI 

1002 DATA11 JJJJJJ , PWJ , 12 KKKKKK , PWK , 13 
LLLLLL , PWL , 14 MMMMMM, PWM, 15 NNNNNN , PWN , 1 
6 000000, PWO, 17 PPPPPP , PWP , 18 QQQQQQ , PWQ 
,19 RRRRRR , PWR , 20 SSSSSS , PWS , 21 TTTTTT , P 
WT 

1004 DATA 22 UUUUUU, PWU, 23 VWWV,PWV,24 
WWWWWW , PWW , 2 5 XXXXXX, PWX, 26 YYYYYY, PWY, 
27 ZZZZZZ , PWZ , 28 C28$$$ , PW8 , 29 C29$$$,PW 
9,30 ALL the Gang,VFW,31 List Again, VFW, 
32 Cancel , ZND , ZND , ZND 

1008 END OHSJ 
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DOS Boot 


2000 


Introducing a new monthly column for 
you and your Tandy PC 


Making Magic 
with DOS Menus 


W elcome to PCM’s new Tandy 
PC forum — DOS Boot. In 
this column, I will explore 
avenues that will allow you to use the 
full power of these magnificent ma- 
chines. 

I’ll start off this column with the first 
of a two-part article on using menus to 
run your applications. The menu pro- 
gram contained in the first part makes 
the most complex applications as easy 
to run as pressing a single key. The 
second part will contain a simple instal- 
lation that makes changing your menu 
features a snap. 

Why Menus? 

This is a reasonable question and 
deserves an answer. Menu was born out 
of sheer frustration. I set up a multiple- 
computer installation in my office and 
encountered two problems imme- 
diately. First, someone accidentally 
formatted one of the hard disks (yes, it 
was fully loaded!) and, second, ever- 
yone kept asking me how to run so-and- 
so. When the second hard disk unit 


(John B. Harrell , III has written for 
microcomputer magazines for three 
years. He holds a bachelor’s degree in 
computer science and is a software 
technical expert for Navy electronic 
support measures systems.) 


By John B. Harrell, III 

(mine) was inadvertently erased, I had 
had enough! 

My first attempt at automating this 
process was to set up a simple menu 
using a batch file. Have you tried this? 
It is really slow ! You also have two 
other problems. If you scroll the menu 
off the screen (display a directory, for 
example), how do you get it back? Also, 
if you leave it there for extended periods 
of time, it may ruin your monitor. 

I devised Menu as a means of protect- 
ing the systems and to make it easy for 
anyone to walk up and run any of the 
applications on the computer. You can 
run Lotus 1-2-3, WordPerfect, Graph- 
writer, etc., all with one keystroke. This 
is not bad when you consider that my 
hard disk has 658 files taking up a total 
of 9 million bytes and using 24 sub- 
directories. 

Menu Magic 

Menu is really the most important of 
three parts of this system that makes it 
so easy. It is the driver program which 
interprets your request and executes the 
correct application (Figure 1 is an 
example of my system display). Menu 
also allows you to format a disk, to exit 
to the MS-DOS command level, and 
will blank the screen after a user-defined 
period of inactivity. 

Menu requires proper installation in 
the system and this is done by the 
AUTOEXEC . BAT file when you are boot- 
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Figure 1: Example Menu Screen Display 


J. B. Harrell ? s JBM-PC/XT Selection Menu 


A . Run 

B . Run 

C . Run 

D . Run 

E . Run 
F . Run 
G » Run 
H. Run 
I . Swi 
J . For 
K • E x i 


LOTUS 1-2-3 Spreadsheet 
LOTUS 1-2-3 Access Manager 

O.P.E.N Access Integrated System 
the SYSTEM/ 36 5250 Emulator 
WordPerfect Word Processor 
DisplayWr ite 2 Word Processor 
Mu 1 t i Mate Ver 3.30 Word Processor 
GraphWriter Business Graphics 
tch output devices for LOTUS graphs 
mat a floppy diskette in drive A: 
t to the MS-DOS command level 


Press a letter key for your selection 


DD/MM/YY 


HH : MM : SS 


ing the system. Figure 2 is an example 
of my IBM PC RUTOEXEC file. Notice 
that it loads several programs which 
remain resident and MENU is the last to 
load. This is important. Make sure 
nothing is loaded after MENU that will 
remain resident when that program 
terminates. 

Another key part of the RUTOEXEC 
file is the PRTH statement. This state- 
ment establishes the search path used by 
MS-DOS when it attempts to execute 
files. Note the subdirectory named 
\DDS\BRTCH — this is where I put all 
the batch files linked to MENU. 


The last part of the menu system is 
the batch files. These files are named 
corresponding to the letter of the option 
selected. Figure 3 shows batch file 
R . BRT which executes Lotus 1-2-3 from 
the menu. Note the simplicity of the 
batch file: the CHDIR or CD commands 
specify the directory to be used. Don’t 
forget the leading backslash (\) as the 
batch file may not be executed from the 
root directory, and the last command 
selects the root directory. 

Look again at Figure 1. I reserve the 
last two option letters for formatting a 
disk and for exiting to MS-DOS. Press- 


ing the letter corresponding to the 
FDRMRT option will present a secondary 
option which allows you to select a data 
disk or system disk format. 

Pressing any other key than these two 
options will instantly return you to the 
menu. Selecting either option will auto- 
matically run FDRMRT and prompt for a 
new disk to be inserted into drive R. This 
is predominately for hard disk users and 
I will talk about changing this option 
later. 

Similarly, the last option is reserved 
for exiting to the MS-DOS command 
level. With one minor restriction, this is 


Figure 2: Example Menu Option Batch File 

echo off 
cd\l23f iles 
123 
cd\ 


This menu batch file corresponds to Option YV on the sample menu and will load and run Lotus 1-2-3 without going through 
the "‘access” manager. 

1. The echo off command is used to suppress listing the remaining commands in the batch file. 

2. The cd\123f i les command is used to change to the lx>tus sub-directory — the leading 4 V is used to make sure that MS- 
DOS can find this sub-directory from any other directory. 

3. The cd\ command should terminate all batch files to return the system to the root directory at the end of each application. 
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Figure 3: Sample AUTOEXEC File 


echo off 

date 

time 

path „ ; e : \dos ; e : \dos\ba tch ; e : \dos\u t i 1 \myouin ; e : \dos\u t i l\o thers 

prompt $e[lm{$t$h$h$h} $p$g$e[0m 

mode coml : 9600 , n , 8 , 1 , p 

spooler 63 

cd \dos\sk 

sk 

cd\ 

menu 

Notes: 

The sequence of operations must set up the environment (prompts and paths) and load all memory-resident software prior to 
loading MENU: 

1. The PATH command establishes search areas of \dos, \dos\batch, \dos\util\myoun and \das\uti lAathers for MS- 
DOS. 

2. The PROMPT command uses a mixture of “prompting” characters and ANSI. 5VS control codes to display the time, path name 
and *>’ prompt in high intensity video mode. 

3. The MODE, SPOOLER and Sl< commands load all memory-resident software prior to loading MENU. 


just as if you had booted the computer 
and were at the first C> prompt. The 
restriction is that there is a limitation on 
changes which may be made to the 
current environment variables. If you 
are not familiar with this concept (see 
your MS-DOS reference manual), then 
don’t worry about it. I have encoun- 
tered few software packages that con- 
flict with Menu in this regard. 

Answer the prompt with anything 
other than a V to exit to MS-DOS and 
you will return to the menu imme- 
diately. Once you are at the MS-DOS 
prompt, you can instantly get back to 
the menu by typing the MS-DOS com- 
mand EXIT and pressing the ENTER key. 

Pressing any other option letter dis- 
played on the video screen will load a 
new version of COMMAND. COM and exe- 
cute the batch file with the same name 
as the letter pressed. For example, 
pressing the letter E (upper- or lower- 
case) will execute E.BAT which expects 
to find commands telling the system 
how to load and run WordPerfect. 

Once you have finished with the 
application, use the normal exit proce- 
dures just as if you were returning to 
MS-DOS. The batch file will then 
execute the remaining commands. 
When COMMAND.COM realizes that there 
are no more MS-DOS commands in the 
batch file, it will terminate and auto- 
matically return you to the menu for 
your next selection. 

Should you desire to quit for awhile, 

I don’t worry about the bright menu 
1 display “burning” into the monitor. At 


the end of the selected “time-out” 
period, Menu will turn off the monitor 
with the exception of a flashing prompt 
reminding you to press a key to return 
to the menu. While the menu is dis- 
played, the current date and time are 
displayed for your convenience. 

Creating Your Own Menu 

This involves two parts. The first part 
creates the program file MENU.COM. 
Enter the program contained in Listing 
1 and then run it. If it displays an error 
message, check the DATA statements 
carefully for typographical errors. If no 
error messages are displayed, MENU . COM 
has been created. Type MENU and see the 
splendid display. 

The second installment of this col- 
umn will give you the menu installation 
program. This provides an easy mech- 
anism to set the colors you desire and 
allow you to set the menu option text. 
Until next month, you can use Menu 
just as it has been created by writing 
your batch files and using the options 
with the text displayed. 

A Real Good Deal 

If you can’t wait until next month for 
a fully operational menu, send me a disk 
in a mailer with the proper return 
postage. I will send you a disk with 
MENU. COM and MENUSINT.BAS on it. I 
will also configure this disk to be a fully 
operational system, including sample 
batch files and demonstration applica- 
tions. 

As published, MENU . BAS only runs on 


the Tandy 2000. Menu will run on all 
IBM PC computers and compatibles. 

If you would like a version for your 
Tandy 1000 or 1200, follow the same 
instructions as above. Make sure you 
specify what computer you will run it 
on. Tandy 1000 users note: install the 
software for a color monitor even if you 
have a monochrome monitor. 

Please send your disks and pre-paid 
mailers to LCDR J. B. Harrell, III, 
15 19- A Carswell Circle, Bolling Air 
Force Base, Washington, DC 20336. 

Finally 

Y ou will find Menu useful for rapidly 
changing from one application to 
another even if you don't have a hard 
disk. If you do not have the statement 
BREAK=0N in your CONFIG. SVS file, 
there is no way to exit Menu without 
resetting the system. A simple CTRL-C 
will suffice to exit if break is enabled in 
the configuration file. 

While you are packaging up your 
disks, take a few minutes and let me 
know what you would like to see in this 
column. Some of my ideas are to inves- 
tigate the MS-DOS commands availa- 
ble to you as a programmer, explain 
how to manipulate high resolution 
color graphics and text, an explanation 
of how monochrome text mode really 
works, and to make a comparison of 
Tandy 2000 compatibility to the IBM 
PC from a programmer’s point of view. 

Even if you don’t send me a disk, drop 
me a line anyway. I’ll be looking for- 
ward to your comments. □ 


November 1985 


pcm 73 


The listing: 

10 CLS 

20 PRINT "Creating binary file: MENU.COM” 

30 CHECK. SUM = 0 

40 OPEN "R", 1, "MENU. COM" ,1: FIELD 1, 1 AS D$ 

50 READ N% 

60 IF N%<0 THEN GOTO 100 

70 LSET D$=CHR$ (N%) : PUT 1: CHECK. SUM = CHECK. SUM + N% 

90 GOTO 50 

100 READ CHECK2 

110 IF CHECK20CHECK. SUM GOTO 140 

120 PRINT "FILE MENU.COM CREATED SUCCESSFULLY" 

130 CLOSE: END 

140 PRINT "FILE CREATION ERROR" 

150 CLOSE: KILL "MENU.COM": END 


200 

DATA 

233, 

189, 

6, 

0, 

14, 

15, 

4, 

0, 

3, 

0, 

0, 

30, 

0, 

0 

210 

DATA 

0, 

12, 

0, 

0, 

0, 

0, 

0, 

0, 

0, 

0, 

0, 

0, 

0, 

0 

220 

DATA 

0, 

9i, 

0, 

0, 

0, 

0, 

0, 

0, 

0, 

0, 

0, 

0, 

0, 

0 

230 

DATA 

0, 

9i, 

32, 

74,' 

46, 

32, 

66, 

46, 

32, 

72, 

97, 

114, 

114, 

101 

240 

DATA 

108, 

108, 

39, 

115, 

32, 

84, 

65, 

78, 

68, 

89, 

32, 

50, 

48, 

48 

250 

DATA 

48, 

32, 

83, 

101, 

108, 

101, 

99, 

116, 

105, 

HI, 

110, 

32, 

77, 

101 

260 

DATA 

110, 

117, 

36, 

32, 

65, 

46, 

32, 

77, 

101, 

110, 

117 , 

32, 

79, 

112 

270 

DATA 

116, 

105, 

111, 

110, 

32, 

78, 

117, 

109, 

98, 

101, 

114, 

32, 

49, 

36 

280 

DATA 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32 

290 

DATA 

32, 

32, 

32, 

32, 

32, 

32, 

66 , 

46, 

32, 

77, 

101, 

110, 

117, 

32 

300 

DATA 

79, 

112, 

116, 

105, 

HI, 

110, 

32, 

78, 

117, 

109, 

98, 

101, 

114, 

32 

310 

DATA 

50, 

36, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32 

320 

DATA 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

67, 

46, 

32, 

77, 

101, 

110 


Introducing MFB-1000 


DMA Controller 

(Available without DMA Controller to use 
as second board or for IBM compatibility) 




Clock/Calendar 


Clock Battery Backup 


128K-512K Memo 


Serial Port 


5725 Kennedy Blvd. 
jflC. N. Bergen, NJ 07047 
(201) 861-0126 


Designed for use with the new 
Tandy 1000 Personal Computer, the MFB-1000 
contains three of the most needed functions on a single 
10" expansion card. Using either 64K or 256K DRAM chips, the MFB-1000 
can be populated with up to 512 K of memory bringing total system memory 
to 640K. Additionally, the board also includes an IBM compatible serial 
communications port (identified as COM1) and a battery backed real time 
clock/calendar. As required by the design of the Tandy 1000, the MFB-1000 
also contains its own DMA Controller. However, the DMA Controller can be 
disabled, making the MFB-1000 compatible with the Tandy 1200 as well as 


Dealer inquiries welcome other IBM compatible machines. 


ORDERING INFORMATION: 

Visa/Mastercard orders accepted. Allow 2 weeks 
for personal checks to clear. Add $3.00 shipping 
and handling. C.O.D. orders add $2.00. N.J. resi- 
dents add 6% sales tax. 


■ 128K RAM $299.95 ■ 256K RAM $329.95 

IBM is the registered trademark of International Business Machines 
Tandy 1000/1200 are registered trademarks o! Tandy Corp 


■ 51 2K RAM $359.95 


i 
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33 0 DATA 

117, 

32, 

79, 

112, 

116, 

105, 

HI, 

110, 

32, 

78, 

117, 

109, 

98, 

101 

34(21 DATA 

114, 

32, 

51, 

36, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32 

35(21 DATA 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

68, 

46, 

32, 

77 

36(21 DATA 

1(31, 

110, 

117, 

32, 

79, 

112, 

116, 

105, 

HI, 

110, 

32, 

78, 

117, 

109 

37(21 DATA 

98, 

101, 

114, 

32, 

52, 

36, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32 

38(21 DATA 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

69, 

46 

39(21 DATA 

32, 

77, 

101, 

110, 

117, 

32, 

79, 

112, 

116, 

105, 

111, 

110, 

32, 

78 

4(21(21 DATA 

117, 

109, 

98, 

101, 

114, 

32, 

53, 

36, 

32, 

32, 

32, 

32, 

32, 

32 

41(21 DATA 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32 

42(21 DATA 

7(3, 

46, 

32, 

77, 

101, 

110, 

117, 

32, 

79, 

112, 

116, 

105, 

111, 

110 

43(21 DATA 

32, 

78, 

117, 

109, 

98, 

101, 

114, 

32, 

54, 

36, 

32, 

32, 

32, 

32 

44(21 DATA 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32 

45(21 DATA 

32, 

32, 

71, 

46, 

32, 

77, 

101, 

110, 

117, 

32, 

79, 

112, 

116, 

105 

46(21 DATA 

111, 

110, 

32, 

78, 

117, 

109, 

98, 

101, 

114, 

32, 

55, 

36, 

32, 

32 

47(21 DATA 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32 

48(21 DATA 

32, 

32, 

32, 

32, 

72, 

46, 

32, 

77, 

101, 

110, 

117, 

32, 

79, 

112 

49(21 DATA 

116, 

105, 

111, 

110, 

32, 

78, 

117, 

109, 

98, 

101, 

114, 

32, 

56, 

36 

5(21(21 DATA 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32 

51(3 DATA 

32, 

32, 

32, 

32, 

32, 

32, 

73, 

46, 

32, 

77, 

101, 

110, 

117, 

32 

52(21 DATA 

79, 

112, 

116, 

105, 

111, 

110, 

32, 

78, 

117, 

109, 

98, 

101, 

114, 

32 

53(21 DATA 

57, 

36, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32 

54(21 DATA 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

74, 

46, 

32, 

77, 

101, 

110 

55(21 DATA 

117, 

32, 

79, 

112, 

116, 

105, 

111, 

110, 

32, 

78, 

117, 

109, 

98, 

101 

56(21 DATA 

114, 

32, 

49, 

48, 

36, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32 

57(21 DATA 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

75, 

46, 

32, 

70 

58(21 DATA 

111. 

114, 

109, 

97, 

116, 

32, 

97, 

32, 

102, 

108, 

HI, 

112, 

112, 

121 

59(21 DATA 

32, 

100, 

105, 

115, 

107, 

101, 

116, 

116, 

101, 

32, 

105, 

110, 

32, 

100 

6(21(21 DATA 

114, 

105, 

118, 

101, 

32, 

65, 

58, 

36, 

32, 

32, 

32, 

32, 

76, 

46 

61(3 DATA 

32, 

69, 

120, 

105, 

116, 

32, 

116, 

111, 

32, 

116, 

104, 

101, 

32, 

77 

62(3 DATA 

83, 

45, 

68, 

79, 

83, 

32, 

99, 

HI, 

109, 

109, 

97, 

110, 

100, 

32 

63(3 DATA 

1(38, 

101, 

118, 

101, 

108, 

36, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32 

64(3 DATA 

88, 

1, 

132, 

1, 

176, 

1, 

220, 

1, 

8, 

2, 

52, 

2, 

96, 

2 

65(3 DATA 

14(3, 

2, 

184, 

2, 

228, 

2, 

16, 

3, 

60, 

3, 

201, 

205, 

205, 

205 

66(3 DATA 

2(35, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205 

67(3 DATA 

2(35 , 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205 

68(3 DATA 

2(35 , 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205 

69(3 DATA 

2(35, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205 

7(3(3 DATA 

2(35, 

187, 

36, 

200, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205 

71(3 DATA 

2(35, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205 

72(3 DATA 

2(35, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205 

73(3 DATA 

2(35, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205 

74(3 DATA 

2(35, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

188, 

36, 

32, 

32, 

32, 

32 

75(21 DATA 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32 

76(3 DATA 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32 

77(3 DATA 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32 

78(3 DATA 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32 

79(3 DATA 

36, 

204, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205 

8(3(3 DATA 

2(15 , 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205 

81(3 DATA 

2(35, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205 

82(3 DATA 

2(35, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205, 

205 

83(3 DATA 

205 , 

205, 

205, 

205, 

205, 

205, 

185, 

36, 

186, 

32, 

32, 

32, 

32, 

32 

84(3 DATA 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32 

85(3 DATA 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32 

86(21 DATA 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32 

87(3 DATA 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

186 

88(3 DATA 

36, 

80, 

114, 

101, 

115, 

115, 

32, 

97, 

32, 

108, 

101, 

116, 

116, 

101 

89(3 DATA 

114, 

32, 

107, 

101, 

121, 

32, 

102, 

111, 

114, 

32, 

121, 

111, 

117, 

114 

9(3(3 DATA 

32, 

115, 

101, 

108, 

101, 

99, 

116, 

105, 

111, 

110, 

36, 

32, 

80, 

114 

91(3 DATA 

1(31, 

115, 

115, 

32, 

97, 

110, 

121, 

32, 

107, 

101, 

121, 

32, 

116, 

111 
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920 DATA 
930 DATA 
940 DATA 
950 DATA 
960 DATA 
970 DATA 
980 DATA 
990 DATA 
1000 DATA 
1010 DATA 
1020 DATA 
1030 DATA 
1040 DATA 
1050 DATA 
1060 DATA 
1070 DATA 
1080 DATA 
1090 DATA 
1100 DATA 
1110 DATA 
1120 DATA 
1130 DATA 
1140 DATA 
1150 DATA 
1160 DATA 
1170 DATA 
1180 DATA 
1190 DATA 


32, • 

L00, ' 

1(25, • 

L15 , ' 

L12 , 108, 

97, ; 

121, 

32, : 

L16, : 

104 , ; 

L01, 

32, 109 

101, ■ 

L10, 

117, 

32, 

36, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

36, 

32 

48, 

48, 

47, 

48, 

48, 

47, 

48, 

48, 

32, 

36, 

32, 

48, 

48, 

58 

48, 

48, 

58, 

48, 

48, 

32, 

36, 

0, 

0, 

0, 

0, 

0, 

0, 

0 

0, 

0, 

0, 

0, 

0, 

0, 

77, 

101, 

109, ; 

111, 

114, ; 

121, 

32, ; 

L14 

101, 

97, 

108, 

108, 

HI, 

99, 

97, 

116, 

105, ; 

HI, 

110, 

32, ; 

102 , 

97 

105, 

108, 

101, 

100, 

13, 

10, 

36, 

65, 

58, 

92, 

67, 

79, 

77, 

77 

65, 

78, 

68, 

46, 

67, 

79, 

77, 

0, 

5, 

32, 

47, 

67, 

32, 

65 

13, 

15, 

32, 

47, 

67, 

32, 

70, 

79, 

82, 

77, 

65, 

84, 

32, 

65 

38, 

47, 

86, 

13, 

17, 

32, 

47, 

67, 

32, 

70, 

79, 

82, 

77, 

65 

84, 

32, 

65, 

58, 

47, 

83, 

47, 

86, 

13, 

0, 

13, 

0, 

32, 

32 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

32, 

0, 

0, 

0, 

0, 

0 

0, 

118, 

5, 

0, 

0, 

163, 

5, 

0, 

0, 

163, 

5, 

0, 

0, 

32 

70, 

HI, 

114, 

109, 

97, 

116, 

32, 

116, 

104, 

101, 

32, 

102, 

108, 

111 

112, 

112, 

121, 

32, 

100, 

105, 

115, 

107, 

101, 

116, 

116, 

101, 

32, 

105 

110, 

32, 

100, 

114, 

105, 

118, 

101, 

32, 

65, 

58, 

46, 

32, 

69, 

110 

115, 

117, 

114, 

101, 

32, 

36, 

32, 

116, 

104, 

97, 

116, 

32, 

97, 

32 

100, 

105, 

115, 

107, 

32, 

105, 

115, 

32, 

105, 

110, 

32, 

100, 

114, 

105 

118, 

101, 

32, 

65, 

32, 

119, 

105, 

116, 

104, 

32, 

116, 

104, 

101, 

32 

100, 

HI, 

HI, 

114, 

32, 

115, 

104, 

117, 

116, 

46, 

32, 

32, 

36, 

32 

80, 

114, 

101, 

115, 

115, 

32, 

116, 

104, 

101, 

32, 

60, 

70, 

62, 

32 

107, 

101, 

121, 

32, 

116, 

111, 

32, 

102, 

111, 

114, 

109, 

97, 

116, 

32 

97, 

32, 

100, 

97, 

116, 

97, 

32, 

100, 

105, 

115, 

107, 

32, 

HI, 

114 

32, 

32, 

32, 

32, 

32, 

36, 

32, 

112, 

114, 

101, 

115, 

115, 

32, 

116 

104, 

101, 

32, 

60, 

83, 

62, 

32, 

107, 

101, 

121, 

32, 

116, 

HI, 

32 

102, 

HI, 

114, 

109, 

97, 

116, 

32, 

97, 

32, 

115, 

121, 

115, 

116, 

101 


MSDOS UTILITIES 
TANDY 100 0, 120 0, 2000 
IBM PC/XT/AT 

**••• R A M D I S K UiL 

RAMDISK -- Use spare memory as a superfast disk to 
speed up applications. (You specify Ramdisk size). 
Appears to programs as a disk, but gives instant 
access. Easy to install and use. 

***** USER TOOL BOX ***** 1^9 

SINGLE KEY COMMAND - Define any text string 
(or DOS Command) as a single keystroke. Press 
single kev to execute commands! 

ALPHABETIZED DIRECTORY DISPLAY - View 
Directory on 1 screen ( 5 columns, sorted. Fast!) . 

FIND FILE -- Search all directories for file. 
DIRECTORY DTREE - Display all sub-directory 
names in an easily readable form. 

CHANGE FILE ATTRIBUTES - Make files hidden , 
readonly, archive, etc. Set or reset attributes. 

***** FULLBACK ***** 

Finally, an easy to use backup program that keeps exact 
images of your files on backup floppies, cartridges, or 
hard disk. Automatically backup one , several , or ALL 
subdirectories. Backup modified only , or ALL files. 
Keeps perfectly organized backups - backup structure 
is identical to original. Supports backup by date, 
multiple backup copies, large files (up to 32MB). Far 
superior to DOS BACKUP, easier to use, and much 
more reliable . Absolutely a MUST for hard disk users. 

***** SNAPSHOT ***** 1 $59 

Instantly snap an image of your screen for later recall. 
Simple keystroke combination to save or recall screen 
images before they disappear forever. Save and load 
from a file. Available from DOS and applications. 


More ALPS Tools Available. Call or Write for ALPS 
catalog. Customer Support !!! 

ALPS 

1502 County Road 25 
Woodland Park, Colorado 80863 
303-687-1442 


Micro to Micro . . . 
to Mini ... to Mainframe! 

TELETERM DOES IT ALL . . . BETTER! 



FEATURES: 

• TERMINAL EMULATION 

of more than a dozen 
terminals including; 

DEC VT100, TRS16, 

ADDS25/VIEWP0INT, 

TELEVIDEO and many others. 

• ELECTRONIC MAIL • has 
all the features necessary 
to access Western Union's 
Easylink. ITT Timetrans, 

RCA Word 
Processing, Direct File 
Transmission, Mailbox 
Retrieval To Screen, 

Printer or File. 

• FILE TRANSFER 
Powerful error-free disk- 
to-disk file transfer 
capability --without any 
memory buffer limitations 
--is another. Transfer 
contents of an entire disk 
if necessary Even 
converts files from MS- 

DOS to TRS-D0S or XENIX systems format or vice versa when TELETERM-EM is paired at both ends 


• UNATTENDED OPERATIONS MODE - permits automatic sequential dial up and connection to other 
systems, file transfer between systems, including mainframes, and log-out any time of day or night. 
Receives and collects data, commands from others any time as well. 

Integral text editor provides word processing capability. 

TELETERM-EM does all this -and more. 

See it for yourself today At the Radio Shack near you. Or phone or write us direct. Telexpress. Inc. P.0. 

Box 217. Willingboro. NJ 08046 (609) 877-4900. Visiting Comdex 

in Las Vegas? 
See us at booth 
#248 MGM 
Grand. 


mm 



Box 21 7. Willingboro. NJ 08046 


(609) 877-4900 
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1200 

DATA 

109, 

32, 

100, 

105, 

115, 

107, 

46, 

32, 

65, 

110, 

121, 

32, 

36, 

32 

1210 

DATA 

HI, 

116, 

104, 

101, 

114, 

32, 

107, 

101, 

121, 

32, 

119, 

105, 

108, 

108 

1220 

DATA 

32, 

114, 

101, 

116, 

117, 

114, 

110, 

32, 

116, 

111, 

32, 

116, 

104, 

101 

1230 

DATA 

32, 

109, 

101, 

110, 

117, 

32, 

100, 

105, 

115, 

112, 

108, 

97, 

121, 

46 

1240 

DATA 

32, 

32, 

32, 

32, 

32, 

36, 

60, 

70, 

62, 

36, 

60, 

83, 

62, 

36 

1250 

DATA 

32, 

32, 

89, 

111, 

117, 

32, 

104, 

97, 

118, 

101, 

32, 

114, 

101, 

113 

1260 

DATA 

117, 

101, 

115, 

116, 

101, 

100, 

32, 

68, 

79, 

83, 

32, 

99, 

HI, 

109 

1270 

DATA 

109, 

97, 

110, 

100, 

32, 

108, 

101, 

118, 

101, 

108, 

32, 

97, 

99, 

99 

SSk 

OO 

CM 

t- 1 

DATA 

101, 

115, 

115, 

46, 

32, 

32, 

36, 

32, 

32, 

84, 

111, 

32, 

114, 

101 

1290 

DATA 

116, 

117, 

114, 

110, 

32, 

116, 

111, 

32, 

116, 

104, 

101, 

32, 

115, 

101 

1300 

DATA 

108, 

101, 

99, 

116, 

105, 

111, 

110, 

32, 

109, 

101, 

110, 

117, 

32, 

119 

1310 

DATA 

104, 

101, 

110, 

32, 

121, 

111, 

117, 

32, 

104, 

97, 

118, 

101, 

32, 

36 

1320 

DATA 

32, 

32, 

102, 

105, 

110, 

105, 

115, 

104, 

101, 

100, 

44, 

32, 

116, 

121 

1330 

DATA 

112, 

101, 

32, 

116, 

104, 

101, 

32, 

68, 

79, 

83, 

32, 

99, 

111, 

109 

1340 

DATA 

109, 

97, 

110, 

100, 

32, 

34, 

69, 

88, 

73, 

84, 

34, 

32, 

97, 

116 

1350 

DATA 

32, 

116, 

104, 

101, 

32, 

32, 

36, 

32, 

32, 

99, 

111, 

109, 

109, 

97 

1360 

DATA 

110, 

100, 

32, 

112, 

114, 

111, 

109, 

112, 

116, 

32, 

97, 

110, 

100, 

32 

1370 

DATA 

112, 

114, 

101, 

115, 

115, 

32, 

116, 

104, 

101, 

32, 

82, 

69, 

84, 

85 

1380 

DATA 

82, 

78, 

32, 

107, 

101, 

121, 

46, 

32, 

32, 

32, 

32, 

32, 

32, 

36 

1390 

DATA 

32, 

32, 

68, 

111, 

32, 

121, 

111, 

117, 

32, 

119, 

97, 

110, 

116, 

32 

1400 

DATA 

116, 

111, 

32, 

99, 

111, 

110, 

116, 

105, 

110, 

117, 

101, 

32, 

116, 

111 

1410 

DATA 

32, 

68, 

79, 

83, 

32, 

108, 

101, 

118, 

101, 

108, 

32, 

40, 

89, 

47 

1420 

DATA 

78, 

41, 

63, 

32, 

32, 

32, 

36, 

34, 

69, 

88, 

73, 

84, 

34, 

36 

1430 

DATA 

40, 

89, 

47, 

78, 

41, 

36, 

188, 

29, 

13, 

180, 

74, 

187, 

29, 

13 

1440 

DATA 

209, 

235, 

209, 

235, 

209, 

235, 

209, 

235, 

67, 

205, 

33, 

115, 

12, 

186 

1450 

DATA 

74, 

5, 

180, 

9, 

205, 

33, 

184, 

0, 

76, 

205, 

33, 

205, 

18, 

209 

1460 

DATA 

224, 

209, 

224, 

209, 

224, 

209, 

224, 

209, 

224, 

209, 

224, 

176, 

192, 

163 

1470 

DATA 

13, 

1, 

180, 

25, 

205, 

33, 

4, 

65, 

162, 

103, 

5, 

140, 

219, 

137 


Submitting Material To PCM 

Contributions to PCM are welcome from every- 
one. We like to run a variety of programs which 
will be useful/ helpful/fun for other Tandy Porta- 
ble and MS-DOS computer owners We now 
support the Model 100, the Tandy 200, and the 
Tandy models 2000, 1200 and 1000. 

Program submissions must be on tape or disk, 
and it is best to make several saves, at least one of 
them in ASCII format. We’re sorry, but we do not 
have time to key in programs. All programs should 
be supported by some editorial commentary 
explaining how the program works. Generally, 
we’re much more interested in how your submis- 
sion works and runs than how you developed it. 
Programs should be learning experiences. 

Pay for submissions is based on a number of 
criteria. The rate of remuneration will be estab- 
lished and agreed upon prior to publication. 

For the benefit of those who wish more detailed 
information on making submissions, please send an 
SASE to: Submissions Editor, PCM, P.O. Box 385, 
Prospect, KY 40059. We will send you comprehen- 
sive guidelines. 

Please do not submit programs or articles 
currently submitted to another publication. 

If you feel qualified to review software and/or 
hardware products for computers covered in PCM, 
send us your name, address and phone number; we 
will send you a questionnaire form and a copy of 
our reviewer guidelines. 


MEET THE WIZARD™ 

Quality / Price / Performance Guaranteed 


Easy to use! $ 29.95 for any one package 
9.95 for each additional 


For TANDY 1000, 1200, 2000 and Compatibles 

1. UNDELETE Plus — Recover deleted files, display 
sorted directory tree, rename directories, cross 
directory file search, quick sort directory display, 
change file attributes, and more (8 programs in all). 

2. SHRED — For your Security needs. Put your 
confidential files through the Shredder and even 
the Wizard can’t restore them! Confidentiality 
guaranteed. 

3. RAMDISK — Transform your spare memory into 
superfast disk(s). You specify size and number. 

4. SNAPSHOT — Instantly save and display up to 99 
text screen images. Great for debugging, Help 
screens, etc. 

5. SHERLOCK — Find lost files. Give Sherlock a clue 
(eg phrase or fragment of file contents) and files 
will be located in all directories. 


**For Okidata, Epson and compatible Printers** 
6. GRAFIX — Send graphics screen image to printer. 


You choose printout size. 

7. FONTFIX — Send control codes to printer to 
configure output mode. Easy to use mnemonics. 


WIZARD Utilities 
P.O. Box 714 
Sudbury, MA 01776 


800-622-4070 
800-942-7317 in ILL. 

$3.00 ship & handling 
in Mass add 5% tax 
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148(2 

DATA 

3(2, 

183, 

5, 

137, 

30, 

187, 

5, 

137, 

30, 

191, 

5, 

186, 

14, 

9 

149(2 

DATA 

180, 

37, 

176, 

35, 

205, 

33, 

160, 

65, 

5, 

60, 

0, 

117, 

3, 

232 

15(2(2 

DATA 

104, 

1 , 

232, 

192, 

2, 

60, 

65, 

124, 

239, 

138, 

14, 

15, 

1 , 

181 

151(2 

DATA 

64, 

2, 

233, 

58, 

197, 

127, 

227, 

180, 

1 , 

136, 

38, 

65, 

5, 

58 

152(2 

DATA 

197, 

117, 

90, 

232, 

226, 

0, 

187, 

3, 

1 , 

232, 

38, 

1 , 

186, 

16 

153(2 

DATA 

8, 

187, 

190, 

6, 

180, 

202, 

185, 

5, 

0, 

81, 

82, 

83, 

80, 

232 

154(2 

DATA 

236, 

0, 

88, 

91, 

83, 

80, 

232, 

245, 

0, 

88, 

91, 

90, 

89, 

254 

155(2 

DATA 

198, 

131, 

195, 

49, 

226, 

231, 

182, 

10, 

178, 

49, 

232, 

211, 

0, 

180 

156(2 

DATA 

170, 

187, 

179, 

7, 

232, 

219, 

0, 

182, 

12, 

178, 

55, 

232, 

196, 

0 

157(2 

DATA 

180, 

170, 

187, 

186, 

7, 

232, 

204, 

0, 

232, 

88, 

2, 

60, 

89, 

117 

158(2 

DATA 

142, 

186, 

161, 

5, 

232, 

92, 

3, 

235, 

134, 

254, 

205, 

58, 

197, 

117 

159(2 

DATA 

103, 

232, 

130, 

0, 

187, 

3, 

1 , 

232, 

198, 

0. 

186, 

16, 

8, 

187 

16(2(2 

DATA 

193, 

5, 

180, 

202, 

185, 

5, 

0, 

81, 

82, 

83, 

80, 

232, 

140, 

0 

161(2 

DATA 

88, 

91, 

83, 

80, 

232, 

149, 

0, 

88, 

91, 

90, 

89, 

254, 

198, 

131 

162(2 

DATA 

195, 

49, 

226, 

231, 

182, 

10. 

178, 

27, 

232, 

115, 

0, 

180, 

170, 

187 

163(2 

DATA 

182, 

6 , 

232, 

123, 

0, 

182, 

11, 

178, 

27, 

232, 

100, 

0, 

180, 

170 

164(2 

DATA 

187, 

186, 

6, 

232, 

108, 

0, 

232, 

248, 

1 , 

60, 

70, 

116, 

12, 

60 

165(2 

DATA 

83, 

116, 

3, 

233, 

39, 

255, 

186, 

142, 

5, 

235, 

3, 

186, 

125, 

5 

166(2 

DATA 

232, 

240, 

2, 

233, 

25, 

255, 

162, 

123, 

5, 

186, 

118, 

5, 

232, 

228 

167(2 

DATA 

2, 

233, 

13, 

255, 

180, 

0, 

176, 

2, 

205, 

16, 

180, 

1 , 

185, 

15 

168(2 

DATA 

0. 

205, 

16, 

184, 

0, 

76, 

205, 

33, 

80, 

81, 

6, 

161, 

13, 

1 

169(2 

DATA 

142, 

192, 

191, 

0. 

0, 

185, 

208, 

7, 

184, 

32, 

10, 

252, 

243, 

171 

17(2(2 

DATA 

180, 

2, 

183, 

0, 

182, 

0, 

178, 

0, 

205, 

16, 

7, 

89, 

88, 

195 

171(2 

DATA 

138, 

198, 

179, 

80, 

246, 

227, 

50, 

246, 

3, 

194, 

209, 

224, 

163, 

61 

172(2 

DATA 

5, 

195, 

252, 

83, 

94, 

139, 

30, 

13, 

1 , 

6, 

142, 

195, 

139, 

62 

173(2 

DATA 

61, 

5, 

172, 

60, 

36, 

116, 

3, 

171, 

235, 

248, 

7, 

195, 

185, 

4 

174(2 

DATA 

0. 

186, 

152, 

1 , 

138, 

7, 

238, 

67, 

131, 

194, 

2, 

226, 

247, 

195 

175(2 

DATA 

50, 

228, 

179, 

10, 

246, 

243, 

128, 

196, 

48, 

4, 

48, 

195, 

180, 

0 

176(2 

DATA 

176, 

2, 

205, 

16, 

187, 

3, 

1 , 

232, 

216, 

255, 

180, 

1 , 

185, 

0 

177(2 

DATA 

96, 

205, 

16, 

182, 

1 , 

178, 

9, 

232, 

162, 

255, 

180, 

202, 

187, 

128 

178(2 

DATA 

3, 

232, 

170, 

255, 

185, 

3, 

0, 

179, 

2, 

83, 

81, 

138, 

243, 

178 

179(2 

DATA 

9, 

232, 

140, 

255, 

180, 

202, 

187, 

122, 

4, 

232, 

148, 

255, 

89, 

91 

18J2S2 

DATA 

254, 

195, 

226, 

233, 

182, 

5, 

178, 

9, 

232, 

119, 

255, 

180, 

202, 

187 

181(2 

DATA 

59, 

4, 

232, 

127, 

255, 

185, 

13, 

0, 

179, 

6, 

83, 

81, 

138, 

243 

182(2 

DATA 

178, 

9, 

232, 

97, 

255, 

180, 

202, 

187, 

122, 

4, 

232, 

105, 

255, 

89 

183(2 

DATA 

91, 

254, 

195, 

226, 

233, 

182, 

19, 

178, 

9, 

232, 

76, 

255, 

180, 

202 

184(2 

DATA 

187, 

59, 

4, 

232, 

84, 

255, 

185, 

3, 

0, 

179, 

20, 

83, 

81, 

138 

185(2 

DATA 

243, 

178, 

9, 

232, 

54, 

255, 

180, 

202, 

187, 

122, 

4, 

232, 

62, 

255 

186(2 

DATA 

89, 

91, 

254, 

195, 

226, 

233, 

182, 

23, 

178, 

9, 

232, 

33, 

255, 

180 

1870 

DATA 

202, 

187, 

191, 

3, 

232, 

41, 

255, 

185, 

3, 

0, 

179, 

2, 

83, 

81 

188(2 

DATA 

138, 

243, 

178, 

10, 

232, 

11, 

255, 

180, 

74, 

187, 

254, 

3, 

232, 

19 

189(2 

DATA 

255, 

89, 

91, 

254, 

195, 

226, 

233, 

182, 

3, 

178, 

18, 

232, 

246, 

254 

19(2(2 

DATA 

180, 

74, 

187, 

44, 

1 , 

232, 

254, 

254, 

185, 

3, 

0, 

179, 

20, 

83 


dheapware™ ,or. h .T.ndy 


1000, 1200 and compatibles. 


* LABEL MAKER with box of 3,000 labels $45.00 

* 5 YEAR DIARY $35.00 

* GRAMARCY" (he Word Game $35.00 

* DRAW POKER $35.00 

* LETTER/MANUSCRIPT WRITER $30.00 

* TAX RECORD $27.50 

POKER ODDS CALCULATOR $25.00 

BASIC Cross Reference Facility $22.50 

* BASIC PROGRAM PRINTER 

(unprotects any protected program) $20.00 

* WORD LIST of the American Language $19.95 


All programs are supplied on diskette with printed documentation (except BASIC Printer and 
Diary) and mailed postpaid to the USA. Canada and Mexico. VlSA/MasterCard accepted 
For more information call 800-NICOLAl (642-6524) or in Missouri 314-621-7618 

Robert L. Nicolai * All programs bear L .T -i Y J 

4038 N. Ninth Street The PCM l W 1 

St. Louis, MO 63147 certification seal certification 

SEAL 

Tandy is a trademark of Tandy Corporation 


NationServ 

Online Information Network 

Data: 618-847-2231 8 300/1200 BAUD 

ONLINE BBS LISTINGS - INFORMATION 
JOBSERVICE - DOWNLOADS - NA LISTS 
CLASSIFIEDS - UG -• MESSAGE CENTER 
PLAY GAMES ONLINE - SHOPPING MALL 
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1910 DATA 

81, 

138, 

243, 

178, 

19 , 

232, 

224, 

254, 

180, 

74, 

187, 

254, 

3, 

232 

1920 DATA 

232, 

254, 

89, 

91, 

254, 

195, 

226, 

233, 

182, 

21, 

178, 

21, 

232, 

203 

1930 DATA 

254, 

180, 

74, 

187, 

185, 

4, 

232, 

211, 

254, 

187, 

104, 

3, 

181, 

9 

1940 DATA 

138, 

14, 

15, 

1, 

186, 

19, 

7, 

82, 

81, 

83, 

232, 

177, 

254, 

91 

1950 DATA 

83, 

139, 

7, 

139, 

216, 

180, 

202, 

232, 

182, 

254, 

91, 

89, 

90, 

131 

1960 DATA 

195, 

2, 

254, 

198, 

226, 

229, 

182, 

22, 

178, 

19 , 

232, 

149, 

254, 

180 

1970 DATA 

42, 

205, 

33, 

138, 

198, 

232, 

196, 

254, 

163, 

40, 

5, 

138, 

194, 

232 

1980 DATA 

188, 

254, 

163, 

43, 

5, 

139, 

193, 

51, 

210, 

187, 

100, 

9 , 

247, 

243 

1990 DATA 

138, 

194, 

232, 

171, 

254, 

163, 

46, 

5, 

180, 

74, 

187, 

39, 

5, 

232 

2000 DATA 

120, 

254, 

180, 

1 , 

136, 

38, 

65, 

5, 

195, 

232, 

242, 

9 , 

163, 

69 

2010 DATA 

5, 

137, 

22, 

71, 

5, 

176, 

255, 

162, 

66 , 

5, 

162, 

73, 

5, 

160 

2020 DATA 

65, 

5, 

60, 

9 , 

116, 

60, 

180, 

44, 

205, 

33, 

160, 

73, 

5, 

58 

2030 DATA 

198, 

116, 

43, 

136, 

54, 

73, 

5, 

138, 

197, 

232, 

108, 

254, 

163, 

51 

2040 DATA 

5, 

138, 

193, 

232, 

100, 

254, 

163, 

54, 

5, 

138, 

198, 

232, 

92, 

254 

2050 DATA 

163, 

57, 

5, 

182, 

22, 

178, 

60, 

232, 

26, 

254, 

180, 

74, 

187, 

50 

2060 DATA 

5, 

232, 

34, 

254, 

232, 

125, 

9 , 

235, 

109, 

144, 

160, 

66, 

5, 

60 

2070 DATA 

9 , 

116, 

23, 

50, 

192, 

162, 

66, 

5, 

162, 

67, 

5, 

232, 

142, 

9 

2080 DATA 

163, 

69, 

5, 

187, 

7, 

1, 

232, 

25, 

254, 

232, 

204, 

253, 

232, 

127 

2090 DATA 

9 , 

139, 

208, 

139, 

200, 

161, 

69, 

5, 

43, 

208, 

184, 

1 , 

9 , 

43 

2100 DATA 

194, 

117, 

59, 

137, 

14, 

69, 

5, 

232, 

178, 

253, 

138, 

54, 

68, 

5 

2110 DATA 

178, 

22, 

232, 

203, 

253, 

180, 

19 , 

187, 

3, 

5, 

232, 

211, 

253, 

138 

2120 DATA 

54, 

67, 

5, 

178, 

22, 

232, 

186, 

253, 

180, 

170, 

187, 

223, 

4, 

232 

2130 DATA 

194, 

253, 

160, 

67, 

5, 

162, 

68, 

5, 

254, 

192, 

162, 

67, 

5, 

44 

2140 DATA 

25, 

124, 

3, 

162, 

67, 

5, 

180, 

6, 

178, 

255, 

205, 

33, 

117, 

3 

2150 DATA 

233, 

70, 

255, 

36, 

223, 

195, 

232, 

35, 

9 , 

80, 

11, 

194, 

61, 

9 

2160 DATA 

9 , 

90, 

116, 

16, 

161, 

69, 

5, 

43, 

208, 

161, 

11, 

1 , 

43, 

194 

2170 DATA 

117, 

3, 

162, 

65, 

5, 

195, 

163, 

69, 

5, 

163, 

71, 

5, 

232, 

177 

2180 DATA 

253, 

195, 

180, 

44, 

205, 

33, 

187, 

60, 

9 , 

138, 

197, 

246, 

227, 

50 

2190 DATA 

237, 

3, 

193, 

138, 

206, 

247, 

227, 

3, 

193, 

115, 

1 , 

66, 

195, 

137 

2200 DATA 

22, 

181, 

5, 

180, 

1, 

185, 

15, 

9 , 

205, 

16, 

180, 

9 , 

176, 

2 

2210 DATA 

205, 

16, 

137, 

38, 

63, 

5, 

180, 

75, 

176, 

9 , 

187, 

179, 

5, 

186 

2220 DATA 

103, 

5, 

205, 

33, 

140, 

200, 

142, 

216, 

142, 

192, 

142, 

208, 

139, 

38 

2230 DATA 

63, 

5, 

195, 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 

2240 DATA 

9 . 

9 , 

9 . 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 

2250 DATA 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 

2260 DATA 

9 . 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 

2270 DATA 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 

2280 DATA 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 

2290 DATA 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 

2300 DATA 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 

2310 DATA 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 

2320 DATA 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 

2330 DATA 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 

2340 DATA 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 

2350 DATA 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 

2360 DATA 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 

2370 DATA 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 

2380 DATA 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 

2390 DATA 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 

2400 DATA 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 

2410 DATA 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

26, 

9 , 

9 , 

9 , 

9 , 

9 , 

9 

2420 DATA 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 

2430 DATA 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 

2440 DATA 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 

2450 DATA 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 

2460 DATA 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 

2470 DATA 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 

2480 DATA 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 , 

9 



2490 DATA - 

1, 278863 
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1 

Reviews 


MAI Accounts Payable: 
An Easy-to-Use 
AP Program 


Software 2000 


MAI’s Accounts Payable program 
makes the chore of paying bills a little 
easier. The software can be operated 
separately or as an integrated part of the 
MAI accounting system. A Tandy 2000 
with 128K RAM is required, one or two 
floppy disk drives and a printer with 
132-column width. 

Several Tandy printers are accommo- 
dated, but at present there is no way to 
configure the printers. MAI is working 
on printer drivers and will send the 
update free to registered users. I used 
the Line Printer VI, but even with 132- 
column paper, some of the printouts 
went off the right-hand edge of the 
paper. If you put your printer in 
condensed mode, everything will print 
on the page. 

The software accepts either cash or 
accrual acounting, has a consistent 
debit/credit balance with automatic 
control during data entry and allows 
posting to once-only vendors. If inter- 
faced with the General Ledger program, 
payments and invoices are posted to the 
proper accounts, and a posting distribu- 
tion report is generated. 

The discount due date, discount 
amount and invoice due date are calcu- 
lated automatically. Safeguards are 
installed to protect against duplicate 
invoice payments. Editing and data 
verification are done online, and dis- 
counts are recorded in advance or at 
time of invoice payment. 

Either partial or full payment of 


invoices is allowed, and file sizes can be 
expanded in mid-year, based on ac- 
count activity. An aged open invoice 
report is printed by invoice received 
date or by due date. Full details or a 
summary can be shown. 

A special feature of this software is 
password protection to restrict access to 
any menu. The data entry operator 
could post invoices and generate vendor 
labels, but could be restricted to print- 
ing checks. 

Forecasting the cash requirements is 
shown by month, or by user-definable 
number of days per period. Invoices are 
selected for payment based on invoice 
due date, vendor, pay cycle or any 
combination of the three. 

The system accepts up to 200 vendor 
accounts and 2,000 open invoices, with 
10 percent disk space left over and 
mailing labels for vendors are generated 
by the program. 

The main menu is simple and easy to 
understand. The choices are 1) 
definition — to personalize the system, 
2) system — to operate daily entries 
and 3) utilities — to back up the data. 
The user manual has a nice flowchart 
illustration which shows the progress of 
the program. 

The definition option sets up the 
company name and address, with fed- 
eral, city and state tax ID numbers. 
Prompts ask if the company has divi- 
sions, uses preprinted check stock and 
operates on a cash or an accrual basis. 
Common payment terms such as 2/10 
net 30 are predefined with a special two- 


letter code. When invoices are entered, 
the vendor’s default payment terms are 
automatically displayed. 

Checks are printed with detailed 
payment information, and can be 
drawn on up to 24 bank accounts. Bank 
ID codes are set up for each account, 
account numbers are entered, and a 
general ledger account number can be 
assigned to each checking account. 

Manually written checks can be input 
into the payables system at any time 
during the month. Checking accounts 
are reconciled with bank statements, 
with provisions for interest, service 
charges and other adjustment such as 
credit card fees. 

One nice feature is treatment of 
discounts. If the “discounts assumed” 
option is chosen, and an invoice for 
$100 with two percent discount is en- 
tered, the system posts $98 to the ex- 
pense account and to open accounts 
payable. If the discount is lost, $100 is 
posted to cash, $98 to open payables 
and $2 to discounts lost. 

The retention part of the program 
allows for partial payments of an in- 
voice. Full payment might be withheld 
until certain conditions are met, such as 
completion of work or installation of 
equipment. During automatic payment 
selection for any retained invoice, the 
amount paid is invoice value less the 
retained amount. If cash, rather than 
accrual basis is selected, this retention 
feature is not available. 

Vendor codes can be alphanumeric or 
numeric only, up to six characters per 
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vendor. If divisional reporting is 
chosen, the first two characters of 
vendor code show which division 
accrued the payable. With this feature, 
payables and expenses are reported 
separately by company department. 

After the vendor’s code, name, ad- 
dress and phone number are installed, 
an eight-character sort key is set up for 
each vendor. The program defaults to 
the first eight letters in each vendor’s 
name, but customized codes can be 
entered. If you try to delete an active 
vendor, an error code appears and the 
program refuses to delete the vendor. 

An optional pay cycle can be set up 
for each vendor. Perhaps you want to 
pay the landlord on the first of the 
month, and the telephone company on 
the 15th. Numbers greater than 31 can 
be entered for quarterly payments such 
as insurance. 

Vendors can be defined in mid-year, 
and purchases-to-date, returns-to-date 
and year-to-date purchases/ returns are 
automatically calculated. The general 
ledger account most often used with a 
vendor is set up, and when invoices are 
posted, the screen shows the account 
number as a default. 

The vendor masterfile listing prints 
summary reports in alphabetical or 
vendor code order. Some, or all, of the 
vendors can be listed. A second report, 
the vendor detail listing, shows open 
invoices by vendor. A vendor cross- 
reference listing which prints on the 
screen shows vendors by numeric code 
and alphabetically. This helps control 
duplicate entries of vendors. Mailing 
labels are printed for all vendors, or for 
a selected few. A test pattern aligns the 
labels. 

The invoice entry/ check payment 


program is simple to use, but has some 
built-in controls. The vendor code 
prompt displays a ‘#’ sign for numeric 
data and a square block for alpha. Up 
to 10 alphanumeric characters are input 
for invoice number, and the date can be 
input or defaulted to today’s date. A 
non-discountable amount, such as 
freight charges, could be shown, and the 
prompt for invoice amount shows com- 
mas so it’s easy to enter the amount. A 
15 character memo can be added. 

I liked the posting function of the 
invoice entry feature. Total amount to 
be distributed is shown on the screen. 
If the invoice is for $500 and $300 is 
posted to inventory, $200 appears in the 
distribution box to show how much is 
left to post to another account. 

The invoice can be edited several 
times. Use of function keys moves the 
cursor to previous or next entry while 
the invoice is on the screen. A second 
chance to edit is a menu option. If the 
invoices have already been updated, 
another change is made by using adjust- 
ing entries. Once an invoice has been 
paid, it cannot be canceled or deleted. 

When all invoices have been posted, 
a data entry register prints out. If the 
system is integrated with the General 
Ledger module, all entries are automat- 
ically posted. For a non-interfaced 
system, a hard copy of the entries is 
produced. 

Handwritten checks can be entered 
into the payables system, and a manual 
register and update report are gener- 
ated. 

Check writing is easy with this MAI 
program. The checking account num- 
ber is chosen, and the options of pay- 
ment by cycle, due date or discount date 
are selected. A sample check pattern can 


be run to align the checks in the printer, 
and starting check number is input. If 
the checks ran improperly, a restart 
function is available. After the checks 
have been printed and the paper is 
changed, a check register is printed. 

A manual payment selection is avail- 
able instead of automatic payment, and 
invoices are selected for payment on a 
vendor-by-vendor basis. 

Four excellent accounts payable 
reports are generated by the system — 
an open invoice report, aged open 
invoice, cash requirements and a dis- 
bursement register. 

At the end of the month, an end-of- 
period processing function is run to 
clear the files and zero out the totals. 
The checking account(s) can be recon- 
ciled with the bank statements, and a 
hard copy is printed. 

I encountered some problems with an 
error message 16, which did not appear 
in the user’s manual. A toll-free call to 
MAI’s technical support resulted in a 
quick fix to the problem. If the program 
is run without using the Reset button, 
a problem with the CONFIG -SYS file 
occurs. However, once the system disk 
is in Drive A, reset, then everything 
works fine. 

I was impressed with the technical 
support of MAI, as well as the ease of 
use of the program. Function keys made 
data entry much easier, and the pro- 
gram ran smoothly on the Tandy 2000 
without any delays while the data was 
saved to disk. This software is easy to 
use, and no accounting knowledge is 
necessary. 

(MAI, distributed by Tandy, One Tandy 
Center, Fort Worth, TX 76102, $495) 

— M.J. Batham 


Software 1000/1200 


Joe Lynn Payroll : 
Inexpensive and 
Complete 

Life was surely simpler during the 
barter period. If someone helped you 
with your harvest, you helped him with 
his harvest or gave him a share of your 
crop. No paperwork; no forms; no 
taxes. 

Well, for the small business operator 
with employees, life is not that simple 


now. He has a few partners in the form 
of federal and state governments who 
require a lot of attention without con- 
tributing positively to the bottom line. 
Modern reality requires the hassle of 
preparing payroll checks, deductions 
for federal, state and Social Security (an 
interesting misnomer) taxes. 

Also, there are deductions for med- 
ical insurance and other employee 
contributions with the joy of reporting 
and paying all of these deductions to the 
appropriate governmental or financial 
organization. 

To assist the small businessman with 
these necessary payroll and witholding 
tasks, Joe Lynn Computer Services has 
released a payroll system utilizing the 


capabilities of the Tandy MS-DOS 
computers to perform payroll calcula- 
tions, posting and check printing. 

Joe Lynn, who has previously re- 
leased business-oriented programs for 
TRSDOS Tandy computers, has now 
focused his efforts on releasing software 
for the new Tandy MS-DOS machines. 

The Payroll System actually consists 
of several programs and files all inter- 
acting together to form a payroll system 
which is extremely easy to operate. The 
only computer expertise required is the 
ability to insert a diskette and type 
PAYROLL. A series of menus then leads 
the user through the various steps 
necessary to enter employee data, main- 
tain necessary year-to-date records and 
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print checks. No confusing technical 
jargon is used. 

Although the program is simple to 
use, its capabilities are quite complete. 
The Payroll System: 

• Calculates FICA, federal and state 
witholding tax plus four miscellaneous 
deductions automatically. 

• Totals hours and wages for up to 10 
departments. 

• Allows miscellaneous deductions to 
be computed as a percentage of gross 
wages, amount per hour worked or 
fixed dollar amount. 

• Has state witholding tax tables prede- 
termined for each state. 

• Maintains state and federal tax ex- 
emption independent from each other. 

• Has the capability to exempt individ- 
ual employees from FICA (Social Se- 
curity). 

• Maintains an employee status file 
which can be updated easily. 

• Allows hourly or salary pay scales. 

• Allows salary override. 

• Calculates regular time, time-and-a- 
half and double-time for hourly em- 
ployees. 

• Prints checks and check stubs for a 


single pay period with year-to-date 
totals on the pay stub. 

• Allows sample checks to be printed 
to align printer. 

• Has an automatic mode to print 
checks that have the same hours or 
salary each pay period. 

• Lists all checks issued each pay 
period. 

• Prints year-to-date, quarter-to-date 
and period-to-date totals. 

• Computes and prints data for quar- 
terly tax reports. 

• Has the ability to convert data from 
an existing payroll system in the middle 
of a year. 

• Handles up to 999 employees. 

• Prints W2 forms. 

• Lists all employees by number or 
alphabetically by last name. 

• Uses a standard check form (NEBS 
#9022). 

While these capabilities are not sur- 
prising and are contained in most full- 
featured payroll programs, what is 
surprising is that you get this all for 
$49.95. Joe Lynn has evidently declared 
a software price war. 

Curious about how such a complete 


program could be offered at such a low 
price, I called him and was informed 
that software selling prices are deter- 
mined by the actual production costs of 
the package (disks, binders, printed 
material, etc.), the costs of distribution 
(two-step software distribution and 
retailers profits), advertising costs and 
programmers profits. By selling direct, 
he feels that he can offer quality soft- 
ware comparable to packages selling for 
up to 10 times his price in sufficient 
quantity to make a fair profit. 

The low price is also his way of 
combatting software piracy. He feels 
that the likelihood of customers copy- 
ing and passing-on software diminishes 
if the purchase price is reasonable. 

Whether or not his assumptions are 
accurate remains to be seen. However, 
this program at this price is certainly a 
value. 

To handle the varying tax laws for 
each state, different program versions 
are released for each state with the 
proper tax witholding tables predeter- 
mined and embedded in the program. 
At year’s end, these tax tables are not 
user-changeable. As federal, FICA and 
state tax rates change with the start of 


Plot Against Your Competition! 

with QuickPlot® 



We’re the people who gave the CGP- 
115 Color Plotter business status. 
With QuickPlot, your Model 100, or 
Tandy 200, produces high quality 
line-, bar- and pie-charts in vivid 
color. Simple data entry and flexible 
chart formatting makes QuickPlot 
and the CGP-115 Color Plotter the 
logical choice for the professional 
who wants to plot his profits— not 
spend them. 

C£KTIF»CATION 
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Complete QuickPlot Package 
Includes: Bar Chart, Pie Chart 
and Line Graph. Data and chart 
formats save to disk or tape for 
future plotting. 


STILL ONLY 

$49.oo 

We pay shipping 
on pre-paid orders 


Model 100, Tandy 200 and CGP-115 are 
registered trademarks of Tandy Corporation. 


Now you have a friend in the software business. 

Computer Solutions Co. 
P.O. Box 24383 
Louisville, KY 40224-0383 
(502) 245-0232 
Call or write to place your order or send tor tree 
information. 
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a year, the purchase of a yearly update 
for half the current cost of the program 
is required to get the new tax tables. 

To test the mathematical accuracy of 
the program, I ran it parallel to a 
megabuck existing payroll system, 
running on an IBM mainframe. The 
results were identical. The major func- 
tional differences between the two 
systems were that the Lynn Payroll 
System was limited to 999 employees 
and only four miscellaneous deduc- 
tions. 

A special payroll system for restau- 
rants, (not tested) is available for 
$149.95 which includes the ability to 
handle tips and draws. 

If you are still producing a manual 
payroll, the costs and risks of compu- 
terizing your system are now very low. 
Besides the low price, a 30-day money- 
back trial period is offered. Since the 
program disk is not copy-protected, Joe 
is truly a trusting man. He would have 
enjoyed the barter system. 

(Joe Lynn Computer Services, 23501 W. 
Gagne Lane, Plainfield, IL 60544, (815) 436- 
4477, $49.95) 

— Bruce Rothermel 


Supercharge your 
ROM with Textpro 
and Supera 

The more you use a machine like the 
Model 100, the longer your wish list of 
additional features grows. Some may be 
as routine as global search and replace 
or as sophisticated as a keyboard macro 
ability similar to what you already have 
on your desktop PC. Perhaps you hope 
to use the LCD as a video prompter. Or 
how about “windowing” on the small 
screen? Well, the 100 still doesn’t do 
windows, but with a little software 
magic, you can look at one file while 
you edit another. The secrets are hidden 
in two programs from Micro Demon 
called Texpro and Supera. These pro- 
grams shorten the wish list and boost 
your ROM power substantially. 

Texpro and Supera combine many 


unique and useful utilities into a single 
package. Texpro is a subset of Supera 
and contains all of its text capabilities. 

Texpro and Supera load themselves 
from cassette after first determining 
your machine’s memory size. What 
looks like a BASIC program now ap- 
pears on the main menu. To turn Su- 
pera or Texpro on, place the cursor over 
the filename and press ENTER. The 
names of ROM TEXT (and for Supera , 
BASIC are changed so you can tell at a 
glance whether Texpro or Supera is 
enabled. If need be, you can turn Tex- 
pro and Supera off and even get rid of 
them altogether. But heed the manual’s 
warning; to kill these programs you 
must first turn them off or face a certain 
cold start. 

The documentation for Supera is 
complete, accurate and full of exam- 
ples. It is also large, bulky and difficult 
to read. The print in the Texpro manual 
is better but still not good. Both man- 
uals would benefit greatly from typeset- 
ting. As always, a portable quick refer- 
ence would be a further plus. 

Texpro and Supera allow you to 
define 26 function keys (A-Z) and 
several special keys. Suppose you are 
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Software included, transfers from bank to bank. Works like main 
menu! Includes powerful RAM Basic that lets programs store 
and access data from any other bank. 

PCSG says: Satisfaction guaranteed or your money back 

within 30 days 


As amazing as it seems you can up- 
grade your Model 100 to 128K of RAM 
in just 60 seconds. 

It comes to you right out of the box 
looking just like the picture. You just open 
the little compartment on the back of your 
Model 100 with a quarter and it just pushes 
right into place. You can then put the cover 
back in its place. 

You then have 4 banks of RAM of 
32K each. The additional three banks 
also work just like your Main Menu. 

You push a function key and you are 
in the second bank. Push again and you 
are in third, again, then fourth. Press it 
ogee again for your original bank. 

It has its own built-in NiCad battery 
that recharges right from the Model 100 
and its guaranteed for a full year. 

S What is really great is that you can 
copy a file from one bank to another with 
just a function key. 

Each bank is like having another 
Model 100, and all the built-in programs 
as well as any snap-in ROM programs ap- 
pear in all four banks and work the same 
way. Your widebar cursor moves from file 
to file and you access any file or run any 
program just by pressing ENTER. 

What lets you copy any file from one 
Jpank to another is a snap-in ROM from 
PCSG called RAM + , that comes at no 
•extra charge. It just pushes right into the 
little socket in that same compartment w'ith 
the 96K expansion unit. 


Not only does this firmware let you 
copy a file from bank to bank, but you can 
make a copy of any file within the same 
bank instantly with a function key. Great 
for Lucid spreadsheets! 

Copy a file from 
bank to bank with a 
function key 

You can also rename a file, or kill any 
file with just a function key. Plus you can 
do a whole lot of other useful things like 
setting the date, day and time with func- 
tion key ease. You even have a function 
key that lets you use non-Radio Shack 
printers without having to make those 
tricky dipswitch settings. 

RAM + lets you cold start any one of 
your banks without affecting the other 
three. That means that anytime you want 
you can clean out a bank’s entire memory, 
but leave intact all the files in the other 
banks. 

What is also fantastic is that you don't 
have to have the ROM in place to use the 
additional RAM. Whenever you take out 
the snap-in ROM it leaves behind a tiny 
machine code program that lets you switch 
from bank to bank just by pressing 
ENTER. 


This lets you use your ROM socket to 
snap-in other ROMS like LUCID spread- 
sheet, WRITE ROM text processor, or 
DISK -f ROM file transfer program, and 
use them in any or all four banks. All of 
these, by the way, are available from 
PCSG. 

When you are ready to copy a file 
from one bank to another or use any of the 
other fantastic functions we talked about 
you can just snap the RAM 4- ROM back 
into place. 

Everybody that has this 128K system 
in their Model 100 is so excited, because it 
gives them four times the capacity and 
all banks work just like the Main Menu. 

And what has made a lot of people 
happy is that the system bus, located in the 
same compartment, is left free for you to 
plug in a DVI or the Holmes Engineering/ 
PCSG portable disk drive. 

The ability to copy a file from bank to 
bank instantly with a function key, plus all 
of the other features make this RAM ex- 
tension truly an engineering masterpiece. 

Some people hesitate when they think 
of installing something, and then others 
are skeptical that any additional hardware 
could be as good as the Model 100 itself. 
That’s why we sell these 96K expansions 
on a 30 day trial. Simply return it within 30 
days for a full refund if you are not satis- 
fied. Priced at $425. MC VISA COD. 

1 - 214 - 351-0564 
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writing about Supera. You can assign 
the program name to a function key by 
pressing ESC A. In response to the “key” 
prompt, type the letter 5. Now type the 
exact character string you wish to assign 
(Supera). From then on, pressing ESC 
5 will type Supera for you. 

Need to check another file? Texpro 
and Supera enable you to view a second 
file while editing the first. If you write 
from an outline as I do, Supera can 
help. While composing a document, 1 
can review my outline by simply press- 
ing ESC 3 and typing the Filename. Since 
I frequently do this, I assigned this 
process to a function key so that check- 
ing my outline is as simple as pressing 
ESC 0. Because there is no way to check 
a function key definition, I always use 
some sort of mnemonic device such as 
‘O’ for “outline.” 

A variation on viewing other files is 
to create a special file called HELP. DO 
and view this help file by pressing ESC 
6. You might use this to record the 
various special key sequences used in 
the program. In any case, you will need 
to experiment with this ability because 
the order in which the files are created 
seems to make a major difference. Some 
files appear instantly; others take so 
long that you are tempted to reset the 
machine. You do get an immediate 
message, and the manual reassures that 
“everything is OK.” 

If you are accustomed to other word 
processors, then you will appreciate the 
“type-over” ability that Texpro and 
Supera add to TEXT. Pressing ESC 1 
turns on type-over and what you type 
replaces the text in your file. ESC 2 
cancels type-over and returns you to 
“insert” mode. 

One of the best features of Texpro 
and Supera is the addition of global 
search and replace to the TEXT pro- 
gram. The F4 key is assigned this func- 
tion (one of the few times, unfortu- 
nately, that Micro Demon uses 
standard function keys). Unlike most 
search and replace programs for the 
Model 100, this one offers a prompted 
option. If you reply V to the “Want 
Prompting (Y/N)” question, Texpro 
and Supera will show you each occur- 
rence in context and let you decide 
whether you want to replace it. The 
prompted option makes search and 
replace extremely useful. 

For proofreading a file, you can let 
Texpro and Supera do the scrolling. 
ESC followed by the down arrow key 
scrolls the current file a line at a time. 


The timing is good for reading, but this 
function would be vastly improved if 
Micro Demon added the ability to 
adjust the speed of the scroll. In any 
case, you can pause the scrolling at any 
time by pressing the SHIFT key and 
resume scrolling with another SHIFT 
press. You really can use the LCD as a 
teleprompter and keep your speech 
notes on the small screen! 

Texpro and Supera add a variety of 
special editing keys to TEXT. Key 
combinations are provided to delete a 
word or line, to substitue for the past 
function and to change the case of the 
character below the cursor. The real 
power of these programs comes in 
combining these editing functions in 
keyboard macros or function key defi- 
nitions to automate editing. The man- 
ual provides example definitions to 
delete from the cursor to the end of the 
file, to erase every other line and to 
change the case of the previous word 
(since you forgot and left the CAPS LOCK 
on). 

All features described thus far apply 
to both Texpro and Supera while in 
TEXT or while using the EDIT com- 
mand to change BASIC programs. Tex- 
pro stops with TEXT, but Supera adds 
a great deal more to enhance the other 
ROM programs and main menu func- 
tions. 

Supera offers a whole set of CTRL key 
combinations to enter the other ROM 
programs directly from BASIC, replace 
current function keys for LIST, FILES 
and MENU, and use the additional capa- 
bilities that Supera adds to your ma- 
chine. Supera features a “calculator” 
mode, automatic line numbering in 
BASIC (at last!), and of course all the 
definable function keys already des- 
cribed. Because one set of function keys 
does not fit all ROM programs, Supera 
lets you save and restore whole sets of 
function keys. 

Calculator mode in BASIC is particu- 
larly interesting. You can quickly check 
a calculation and save the result to a 
BASIC variable. Supera also converts 
decimal to hexadecimal and vice versa. 
It even makes provision for multiple 
PEEKS and POKES. 

Now for file management from the 
main menu. Supera adds CTRL key 
combinations to kill, rename and check 
the size and memory location of files. 
The only wrinkle is that Supera will 
allow you to create duplicate filenames 
when renaming and even permits in- 
valid filenames. The first is a nuisance; 


the second is a real plus since it can be 
used to prevent accidental deletion of 
files. If Micro Demon would only use 
the Model 100’s own function keys for 
these menu enhancements, they would 
be much less confusing. 

But there is trouble in paradise. 
Supera comes with a starter set of 
function keys. These were not defined 
as documented. Fortunately, it was a 
simple matter to redefine them to spec- 
ification. 

I have two gripes with these pro- 
grams. First, there is no way to check 
the definition of a function key without 
using it. When a key has been defined 
to do special or complex editing, this is 
totally unacceptable. The problem is 
worse as you build multiple sets of 
function keys. You must simply main- 
tain an external list of function key 
definitions or use all your RAM for 
large “help” files. 

My other gripe is that different ROM 
modes require different methods. To 
define a function key in BASIC you press 
CTRL D rather than ESC A as in TEXT. 
You can activate a function in BASIC 
either by ESC followed by the letter or 
by using SHIFT plus the letter while 
CAPS LOCK is down. This second meth- 
od is the only one that works in TEL- 
COM, SCHEDL or ADDRSS. So you 
invoke a function key from TELCOM 
in one fashion, from TEXT in another, 
while BASIC allows either. Since func- 
tion definitions work across all modes, 
the use ought to be consistent. All this 
makes the function keys more difficult 
to use and less functional. 

Texpro and Supera offer plenty of 
bang for the byte. But they may not 
appeal to the casual user of the Model 
100 because of the many key sequences 
to master. If you are accustomed to 
other programs using CTRL key se- 
quences, Supera and Texpro might not 
seem difficult at all. In any case, the 
search and replace and function key 
ability are well worth the price of 
admission. 

Which do you need? If most of your 
work is with TEXT, save money and 
memory with Texpro (about $30 and 
1.5K). But if you want ROM perform- 
ance, you’ll really appreciate the Supera 
supercharge. 

(Micro Demon, Inc., P.O. Box 50162, 
Columbia, SC 29250, 803-733-0908, 16K 
cassette, Supra $79.95; Texpro $49.95 plus 
$3 S/H each) 

— Dennis Kirley 
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Voice Command : 
Voice Recognition — 
For a Price 

Many of us have seen those super 
intelligent computers and robots in the 
movies that talked and listened to the 
people who were (supposedly) their 
masters. After seeing this sort of thing, 
you start to wish you could do the same 
things with ordinary desktop computers 
in the real world. 

Speech synthesizers have been in 
fairly wide use for some time and in 
some fields have already become old 
hat; but speech recognition is another 
matter entirely. Getting a machine to 
identify the words a person speaks with 
any degree of accuracy is something 
that has been sought at least as far back 
as the early 1960s when Dr. Harry F. 


Olson at RCA demonstrated a crude 
version of a voice-operated typewriter. 
Lately there have been a number of 
voice recognition boards offered for 
various computers; judging by their 
limitations, HAL is still some time off 
(but may yet arrive by 2001). Mean- 
while, Logical Business System’s Voice- 
Command is here now, and (although 
it is a bit awkward) it can be a very 
useful addition to a desktop computer. 

The VoiceCommand board, which 
(like so many other products) was 
designed for the IBM PC, works just as 
well in the Tandy 1200. (It takes up the 
full length of a long slot, and won’t fit 
in the Tandy 1000.) It needs 256K of 
RAM, and when you are actually using 
it you may need even more than that 
since the resident program involved 
takes up over 60K. The board has its 
own microprocessor and 16K of RAM 
for its own use (it doesn’t appear in the 
computer’s RAM space). 

On the back plate is a microphone 
jack; a good directional mike should be 
used to keep down extraneous noises. 
The microphone that Logical sells 
works well, and costs $79.95. Installa- 
tion is no problem; please remember to 
unplug the computer first, but since it 


does take up a slot and the Tandy 1200 
then has only one slot left, you may end 
up needing one of the multifunction 
boards for the more common expansion 
options. 

VoiceCommand comes with a good 
set of driver programs. VEXEC is the 
program that stays in RAM all the time 
and handles the task of controlling the 
board and passing commands to the 
computer. BVOICE loads a vocabulary 
into the board and into RAM, and also 
operates as a setup program to let you 
create and update vocabularies, train 
the system to recognize your voice for 
each word and check to see if everything 
is working properly. There are also a 
number of sample vocabulary files that 
let you try out the system quickly 
without having to create a vocabulary. 
A copy of Ashton-Tate’s Framework 
demonstration disk is included with a 
vocabulary to match; it requires 384K, 
and the Tandy 1200 I used has only 
256K, so I wasn’t able to try it. 

VoiceCommand can have a vocabu- 
lary of up to 500 words in place at a 
given time. The specs also say that a 
total of 32,000 words can be made 
available in up to 64 vocabulary files, 
but the manual isn’t clear about how 
these limits were arrived at. A typical 
vocabulary will probably have only 20 
to 30 words appropriate to a given 
application. The BVOICE program has 
an editor to let you set up the command 
words and action strings involved. 

The action string is a string of char- 
acters that are to be entered, while the 
command words represent the words to 
be spoken. For example, the command 
word “directory” might stand for the 
directory command; the action string 
might be DIR. A windowing feature will 
let you specify that certain functions can 
be used only after others have been 
used. You could set the words repre- 
senting the numerals one through nine, 
for instance, so they won’t work unless 
you have opened the window by saying 
“numbers” first. Finally, there’s a 
“popup” function that lets you, by 
saying “popup” while running an appli- 
cation, bring up a list of the available 
words without breaking out of the main 
program. 

After you have a vocabulary file for 
the application you want to use, the 
next step is to “train” it to recognize 
your voice or that of the person who will 
be using the application. For each word 
in the file, VoiceCommand will memo- 
rize the pattern of your voice as you say 
the word. As far as I could tell, no 
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I THE WORD 

processor 

The KJV or NIV Bible on disks. 

Search for any word or phrase, 
create personal indexes, print any 
verse. Build your own library of 
Scripture references. $199.95 

THE GREEK 
transliterator 

Start with any English word and 
find the original Greek, with 
definition and word roots. For any 
Greek word find every translation. 

Includes STRONG’S 
CONCORDANCE and the KJV 
New Testament. 
(Apple and IBM only.) $199.95 
■' ’ : v ■. ■ ' ' . . ' 
Include $3 postage/handling. 


“Software for personal Bible study” 

Bible Research Systems 

2013 Wells Branch Parkway, Suite 304 
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connection is needed between the word 
you typed in before and the word you 
speak; if you felt like being silly you 
could, while training a file, say “ruta- 
baga” and have it mean “directory.” 
Since we hardly ever speak the same 
word in exactly the same way twice, 
VoiceCommand has some tolerance for 
different inflections; the manual claims 
that the board is 75 percent accurate 
after one training pass. You can run 
through the training procedure again; 
each time, as the “image” of the way you 
say each word becomes more accurate, 
so does the recognition process; after 
seven training passes the system is said 
to be 98 percent accurate. When we first 
tried out the VoiceCommand board we 
found that the system would occasion- 
ally accept commands from other peo- 
ple besides the person who had trained 
it; it wasn’t reliable by any means, and 
Logical Business Systems doesn’t rec- 
ommend it, but it did happen. 

Finally, starting up VoiceCommand 
to actually use an application is quite 
simple. You just enter VEXEC to load the 
main program, then type BVOICE fol- 
lowed by the name of the file and your 
initials. After the vocabulary is loaded, 


you’re ready to start giving commands 
by voice. Load up your application 
program, press the NUM LOCK key to 
enable voice input, and start talking. If 
at some point you (or someone else) 
says something that doesn’t match a 
word in the vocabulary, the computer’s 
speaker will beep to let you know. If you 
want to switch off the voice input at 
some point, just press NUM LOCK or 
switch off the microphone itself, if yours 
has a switch. 

In our tests, VoiceCommand recog- 
nized words quite well as long as they 
were spoken distinctly, which is all one 
really has a right to expect at this stage. 
In a reasonably quiet office or home 
setting it should work just fine; a noisy 
environment, like a factory, will almost 
certainly cause trouble. If you have an 
application that uses a set of fixed 
commands and you’d like to convert it 
to voice input, VoiceCommand can fill 
the bill quite nicely. 

(Logical Business Systems, 264 Santa Ana 
Court, Sunnyvale, CA 94086; board $499, 
microphone $79.95) 

— Ed Ellers 


Software 1000/1200/2000 


Teleterm: 

Powerful 

Communications 

If Teleterm were just a communications 
program, it would rate as a success in 
my book. In fact. Teleterm contains a 
host of features in addition to commu- 
nications. Although full featured pro- 
grams can be so complicated to learn 
that they become a trap for the novice, 
Teleterm can be easily mastered for 
basic communications. Advanced fea- 
tures, however, are available for the 
sophisticated user. 

Entering TELETERM from DOS 
prompt yields the program’s main 
menu. Selections include “Creator/ 
Editor,” “Communications,” “Text 
Editor” and a “Translation Table Print” 
routine. Since communications will be 
the primary use of Teleterm , I will deal 
with that function first. Selecting the 
communications option from the main 
menu generates a “loading” message 


that lasts 10 seconds or so. The screen 
clears and the user is asked for a termi- 
nal name. Actually it is the name of a 
disk file containing communication 
parameters that is being requested. 

At this point the name of a terminal 
file may be entered. If the ENTER key is 
pressed instead, Teleterm will search 
available drives and list any files with a 
• TRM extension. The request for a 
filename is then repeated. The first time, 
I had no idea which file to choose, so 
I just picked one at random. Once I 
selected a file, its parameters were set 
and the communications help menu 
appeared. The A and P options of the 
help menu allow easy changing of the 
settings from the disk file. Once the 
settings are to your liking, those settings 
may be saved to disk as a new . TRM file. 
Next time, giving that filename will 
bring the communications mode up as 
you set it. For instance, I changed the 
parameters to the setup I use for Com- 
puServe and saved that file as COM 
PUS. TRM. 

The help menu has 33 commands on 
it, but actually entering terminal mode 
is not one of them. Pressing ENTER puts 
you into terminal mode, ready for 
communicating. The immediate effect 
of this is that the screen goes blank. 
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Back Issue 
Availability 

Back copies of many issues 
of PCM are still available. 

All back issues sell for the 
single issue cover price. In 
addition, there is a $2 charge 
for the first issue plus 50 
cents for each additional 
issue shipped in the U.S. 
When possible, issues are 
shipped UPS. The postage 
cost in Canada and Mexico 
is $3 for the first issue and 
$1 for each additional issue. 

VISA, MasterCard and 
American Express accepted. 
Kentucky residents please 
add 5 percent state sales tax. 
We do not bill and no COD 
orders accepted. 

We suggest you order 
back issues you want now 
while supplies last. 

To order, just fill out the 
form on the next page and 
mail it with your payment 
to: 
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There is supposed to be a “Teleterm 
ready” message at this point, but 1 only 
got it some of the time. Once in terminal 
mode, Teleterm sends the necessary 
signals to start communication with the 
machine on the other end of the line. 

1 think this is the place to comment 
on one of my problems with Teleterm. 
My experience was that the documen- 
tation was good and covered most of the 
information that a user would need. The 
organization of that information left 
something to be desired. My biggest 
problem was figuring how to get out of 
the various segments of Teleterm. The 
documentation was very good at telling 
you how to initiate a function, but how 
to exit was often left until the end of that 
section of the manual. The people at 
Telexpress seemed to appreciate my 
comments in this regard and promised 
to consider them carefully. The manual 
for the Tandy 2000 and MS-DOS ver- 
sions had not been typeset and it is quite 
possible that some of my suggestions 
will make the final version. 

Eventually you will discover that the 
ALT key serves as a control key when in 
terminal mode. Most of the commands 
available from the help menu are avail- 
able from within terminal mode by 
pressing ALT and the key together. 
Pressing ALT H will return you to the 
help menu itself. If you are in contact 
when you press ALT H, Teleterm will 
maintain contact while you access 
commands on the help menu. Being 
able to change settings such as echo 
without breaking contact is very useful. 

Teleterm supports both unblocked 
ASCII file transfer and the XMODEM 
protocol for sending and receiving files. 
Both of these methods allow file 
transfer directly to or from disk. This 
means that the size of the file you can 
send or receive is limited only by the 
capacity of your disk and / or the length 
of time you can spend connected. 

There is also a special mode for 
transfer called Teleterm blocked mode. 
This method uses an error checking 
procedure to assure accurate file 
transfer, but can be used only when 
both computers are using Teleterm. The 
documentation does mention the fact 
that XMODEM transfer is also referred 
to as “Ward Christensen” and 
“MODEM7.” This bit of information 
will be helpful to beginners since I have 
found that every bulletin board uses a 
different name for the upload /down- 
load protocols. 

The first time I used Teleterm , I 
opened the memory buffer to receive the 


data coming in from a session on Com- 
puServe. When this buffer gets full, a 
message appears to that effect and a 
filename is requested to save the buffer. 
The technical people at Telexpress told 
me how to avoid this problem, but had 
I written the manual, 1 would have 
bragged about the receive direct to disk 
feature. If you set the receive-to-disk 
mode at the beginning of a session, all 
incoming data is saved to a disk file on 
the fly. As the buffer fills, Teleterm 
writes it to disk without operator inter- 
vention. The display leaps ahead after 
completion of disk access indicating 
that the incoming data is still being 
accepted during the disk write. 

Mention of the memory buffer brings 
up another important feature of Tele- 
term. One of the options at the main 
menu is a text editor. This editor is also 
accessible from the communications 
mode and can be used to edit whatever 
is in the buffer. For many applications 
it is a major convenience to have a text 
editor built in to your terminal pro- 
gram. Received text can be edited in the 
buffer before it is saved to disk. Outgo- 
ing files can be loaded to the buffer, 
edited and then transmitted. Messages 
and responses to received mail can be 
composed and edited in the buffer 
rather than typed on the fly. Teleterm 
will stall with the appropriate signals 
while you use the editor online. While 
the text editor has adequate editing 
commands and will provide a printed 
copy of text in the editor, it is not 
intended as a word processor and will 
not format the text. Its major drawback 
is the lack of a command to make the 
cursor jump to either end of a line. 

Teleterm can also be used to make 
your computer emulate a specific type 
of terminal. Files come on the disk that 
will emulate most of the common types 
of terminals. In addition, a feature 
called “Creator/ Editor” asks the user a 
myriad of questions about how the 
computer should act in terminal mode. 
Once these questions have been an- 
swered, the results may be saved as a 
disk file. If you know what is expected 
of a terminal, you should be able to use 
Teleterm to emulate any kind of termi- 
nal. 

Six different conversion tables within 
Teleterm can be edited by the user. 
These tables control characters going in 
and out of the RS-232 port, to the 
printer, to the video and from the 
keyboard. This feature becomes impor- 
tant if the other end sends characters 
that will make a mess. Changing the 
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RS-232 input conversion table will 
intercept those characters before they 
can cause trouble. The same procedure 
can prevent graphics characters from 
reaching the video display and wreaking 
havoc. 

Teleterm can utilize the auto-dial 
feature of Hayes’ and several other 
modems and will store up to 10 phone 
numbers to be recalled with a keystroke 
or two. There is also an unattended 
mode of Teleterm that will allow calls 
to be received or made at specified times 
without intervention of the operator. If 
you would like to call home and send 
files to your computer, this is a handy 
feature. 

Teleterm is available in an IBM 
version that will run on the Tandy 1000, 
1200 and many other compatibles. It 
also comes in a separate version for the 
Tandy 2000 (IBM version will not work 
on a 2000). There are also versions for 
the TRS-80 Model 4/4P, TRS-80 Mod- 
els 11/12/16 and a Xenix version. 

(Telexpress, P.O. Box 217, Willingboro, NJ 
08046, 609-877-4900, $199.95) 

— Potter Orr 


Hardware 100/200/1000/1200/2000 


Zvert ZVT-630 
Diablo Printer 
Emulator makes 
‘LaserJetting’ Simple 

The world of computer printing was 
changed forever when Hewlett-Packard 
unveiled the LaserJet, introducing a 
new breed of computer printers. Unfor- 
tunately, though, the world of word 
processing was still using the old breed 
of software that didn’t exactly work 
with this new technological wonder. 
You see, the word processing software 
that most people were using at that time 
(and even still) knew only how to “talk” 
with the old faithful daisy wheel and 
dot-matrix printers. The LaserJet pre- 
sented a whole new array of features 
and complexities. 

Into this chaos came a wonderful 
product from Zvert Corporation — the 
ZVT-630 Diablo 630 Emulator. It is a 
magical box that fits between your 
computer and your LaserJet printer and 


makes the LaserJet think it’s a “super- 
charged” Diablo 630, a popular daisy 
wheel printer. 

Suddenly, your old faithful Word- 
Star, Multimate or just about any old 
word processor you have can become 
LaserJet compatible. Your word pro- 
cessor can happily send Diablo 630 
codes for centering, underlining, setting 
margins, etc., the ZVT-630 can change 
them around, and your LaserJet will 
think your computer is talking in its 
lingo. 

In addition to translating Diablo 
codes into LaserJet talk, the ZVT-630 
performs a couple other minor miracles. 
It converts signals from your compu- 
ter’s “normal” parallel printer interface 
to the RS-232 signals required by the 
LaserJet. It will also allow you to 
connect up to three computers to a 
single LaserJet printer (one parallel and 
two RS-232 serial). In this shared 
configuration, the Zvert box will auto- 
matically handle each computer’s out- 
put and, if necessary, will put one 
computer’s print job on hold while 
another’s is being printed. 

Aside from allowing one to easily use 
the LaserJet printer, the ZVT-630 adds 
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measurements! 

• Self Prompting with error 
prevention! 
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• And many other advanced 
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• Tracks your flight in Real 
Time! 

• Modify Flight Data as 
necessary! 

• Incredible Graphic displays! 

• Shows Position, Fuel, 
Intersections! 

• ETA'S, Ground Speed, and 
much more! 

• Turn off and on without 
data loss! 


Requires Radio Shack Model 100 with at least 16K or the new Tandy 
200 ! 

Attention Radio Amateurs! Announcing: 

The Preble HAMTERM! 

For the Model 100 or new Tandy 200! 

• Radioteletype operation for BAUDOT, ASCII, AMTOR, CW! 
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• Word Buffer in Transmit Mode! Corrects errors before they are sent! 
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a nice feature to the printer that nor- 
mally requires programming or the 
purchase of an additional font cartridge 
(these cost about $250 each). The Zvert 
box will simulate bold printing. The 
standard Diablo code signals the emu- 
lator to take care of this automatically. 

Because of the nature of this device, 
getting it connected and configured is 
not something the average user could do 
easily. Not that it is that difficult, there’s 
just a lot of talk about Baud rates, 
DTRs and parity that might scare some 
people away. In its favor, however, the 
box comes preset to work with the most 
common configuration. 

Once the box is set up, using it is as 
simple as flipping a power switch and 
pressing the “option select” button to 
put it in “emulation mode.” 

The manual supplied with the emu- 
lator is printed with (what else) a La- 
serJet printer. A good amount of space 
is devoted to connecting and setting the 
DIP switches on the box. However, 
there is little information on using the 
emulator’s port sharing capabilities. A 
mark in the manual’s favor, though, is 
the inclusion of a complete list of 
supported Diablo 630 control codes 


with comments on how they work with 
the emulator. 

One of the nicer features put into this 
box is the “pass through” mode. It will 
force the box to send data straight 
through to the printer without transla- 
tion. This mode is handy if you happen 
to have software set up specifically for 
the LaserJet printer, but still want to use 
the emulator for its other features. 

The ZVT-630 worked flawlessly in 
our testing. If one does experience 
problems with the emulator, the self- 
test feature will print a report on its 
condition and DIP switch settings. 

WordStar was used to test the emu- 
lator and, aside from some bugs in our 
version of the WordStar Diablo 630 
driver, it worked beautifully. We 
printed the WordStar PRINT.TST file 
with the emulator. It was able to do 
boldface printing, underlining, “strike- 
out,” superscripts, subscripts and 
variable-pitch printing perfectly. How 
nice it is to finally be able to use Word- 
Star with the LaserJet. 

There are some Diablo 630 codes the 
ZVT-630 will not recognize. For the 
most part, these are due to the differ- 
ences between daisy wheel and laser 


printing. Most notable of these missing 
codes are those that control propor- 
tional printing and Diablo’s HYPLOT 
graphics. 

The ZVT-630 emulator adds some 
codes of its own to the standard Diablo 
set. These codes are for special support 
of the LaserJet printer. Codes are 
provided to switch between “portrait” 
(vertical) and “landscape” (horizontal) 
text orientation, select the number of 
copies, reset the printer and perform a 
self-test of the printer. A “transparent 
print” code is provided to allow you to 
pass through Hewlett-Packard codes 
directly to the printer. 

In summary, if you are currently 
using a word processor that does not 
support the LaserJet and have or are 
contemplating purchasing a LaserJet, 
the Zvert ZVT-630 emulator would be 
a wise buy. If you currently have a 
Diablo 630 and want to upgrade to the 
speed of the LaserJet, this product is 
made for you. 

(Zvert Corporation, 12421 Venice Boule- 
vard, Suite 8, Los Angeles, CA 90066, $599) 

— Danny Humphress 
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New Products 


The following products recently have been received 
by pcm, examined by our magazine staff and 
approved for the pcm Seal of Certification, your 
assurance that we have seen the product and have 
ascertained that it is what it purports to be. This 
month the Seal of Certification has been issued to: 


Astro*Talk, accepts date, time 
and place of birth and gener- 
ates accurate astrological data 
for use in determining horo- 
scopes. Matrix Software, 315 
Marion Avenue, Big Rapids, 
MI 49307, (616) 796-2483. Re- 
quires Tandy 1000 or 1200, 
$39.95 

Chart-Master, translates data 
from popular spreadsheet pro- 
grams into professional charts 
and graphs. Works with most 
popular plotters and dot- 
matrix printers as well as the 
Hewlett-Packard LaserJet 
printer. Decision Resources, 
Inc., 25 Sylvan Road South, 
Westport, CT 06880, (203) 
222-1974. Requires Tandy 
1000 or 1200 with graphics, 
$375. 

Data Manager System, a per- 
sonal filing system for the 
Tandy Model 100. Package in- 
dudes manual and cassette 
software. Tandy, distributed 
through Radio Shack stores 
nationwide. Requires a 16K 
Model 100, Catalog No. 26- 
3836, $39.95. 

Debug/ Assembler, a program 
allowing you to write and edit 
8085 assembly language pro- 
grams on the Model 100. 
Tandy, distributed through 
Radio Shack stores nation- 
wide. Requires a 32 K Model 
100, Catalog No. 26-3823, 
$49.95. 

Diagram-Master, creates busi- 
ness diagrams such as organi- 
zation charts and Gantt Sche- 
dules. Prints charts on plotter, 
dot-matrix or laser printer. De- 
cision Resources, 25 Sylvan 
Road South, Westport, CT 
06880, (203)222-1974. Re- 
quires Tandy 1000 or 1200 
with graphics, $345. 


U. 


The Factory: Strategies in 
Problem Solving, a computer- 
aided instructional package 
for teaching strategy. Includes 
training diskettes and teacher 
guide. Sunburst Communica- 
tions, 39 Washington Avenue, 
Pleasantville, NY 10570, (914) 
769-5030. Requires Tandy 
1000, $59. 

Function Plotter, allows print- 
ing graphs of algebraic func- 
tions of one or two variables. 
Program supplied on cassette. 
Tandy, distributed through 
Radio Shack stores nation- 
wide. Requires a 16 K Model 
100 and any one of Tandy’s 
plotters, Catalog No. 26-3834, 
$19.95. 

Hot Dog Stand: Survival 
Math Skills, a program de- 
signed to motivate students in 
grades 6-12 to develop practi- 
cal mathematical skills. In- 
cludes diskette and teacher 
guide. Sunburst Communica- 
tions, 39 Washington Avenue, 
Pleasantville, NY 10570, (914) 
769-5030. Requires Tandy 
1000, $59. 

Inside 1-2-3, a self-study train- 
ing package for users of Lotus 
1-2-3. Includes tutorial manual 
and diskette containing prac- 
tice worksheets. Hayden, 10 
Mulholland Drive, Hasbrouck 
Heights, NJ 07604, (201)393- 
6306. Requires Tandy 1000, 
1200, or 2000, and Lotus 1-2- 
3, $49.95 


Inside Framework, a training 
package for users of Ashton- 
Tate’s Framework. Includes 
self-paced learning manual 
and diskette with examples of 
Framework files. Hayden, 10 
Mulholland Drive, Hasbrouck 
Heights, NJ 07604, (201)393- 
6306. Requires Tandy 1000, 
1200, or 2000, and Frame- 
work, $49.95 

Inside Symphony, a book/ soft- 
ware package for training 
users of Lotus Symphony. In- 
cludes instruction manual and 
sample data diskette. Hayden, 
10 Mulholland Drive, Has- 
brouck Heights, NJ 07604, 
(201) 393-6306. Requires 
Tandy 1000, 1200, or 2000, 
and Symphony, $49.95 

Interactive Solutions, a cross- 
referencing program consisting 
of a database manager, spread- 
sheet and word processor. 
Tandy, distributed through 
Radio Shack stores nation- 
wide. Program supplied on 
plug-in ROM. Requires a 16 K 
Model 100, Catalog No. 26- 
3844, $149.95. 

The King’s Rule: Mathematics 
and Discovery, a program 
using a fantasy game format 
to teach the generation and 
testing of mathematical hypo- 
theses. Includes diskettes and 
teacher guide. Sunburst Com- 
munications, 39 Washington 
Avenue, Pleasantville, NY 
10570, (914) 769-5030. Re- 


MAI BASIC Four Inventory, 

an inventory program de- 
signed to work alone or in con- 
junction with other MAI 
BASIC Four accounting pack- 
ages. Tandy, distributed 
through Radio Shack stores 
nationwide. Requires Tandy 
2000, Catalog No. 26-5214, 
$495. 

Offix, an integrated office pro- 
ductivity program with appli- 
cations for filing, word pro- 
cessing, forms design and 
report generation. Tandy, dis- 
tributed through Radio Shack 
stores nationwide. Requires 
256K Tandy 1000, 1200 or 
2000, two floppy disk drives or 
one hard disk. Catalog No. 26- 
5325, $99.95. 

Sign-Master, a graphics pro- 
gram that creates text pages, 
headlines and other “word 
charts” on a plotter or dot- 
matrix printer. Decision Re- 
sources, Inc., 25 Sylvan Road 
South, Westport, CT 06880, 
(203) 222-1974. Requires 
Tandy 1000 or 1200 with gra- 
phics, $245. 

Thoroughbred System I, a han- 
dicapping system designed to 
help horse racing fans earn 
more at the track. PDS 
Sports, P. O. Box E, Torrance, 
CA 90507, (213)516-66 88. Re- 
quires Tandy 1000 or 1200, 
$129. 


By awarding a Seal, the magazine certifies the 
program does exist, but this does not constitute any 
guarantee of satisfaction. As soon as possible, these 
hardware or software items will be forwarded to 
pcm’s reviewers for evaluation. 
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Using BA READ 2.1 


Bar code listings must be 
read in numerical order begin- 
ning with Line 1 and contin- 
uing through the last line of 
the listing. The computer 
display is used to prompt you 
as to which line to scan and 
give you warning messages 
should you happen to get out 
of step. 

When you run BAREAD, it 
asks you to scan the first line 
of the bar code listing. This 
line contains the name of the 
program as well as the begin- 
ning of the program itself. The 
computer will sound a high- 
pitched beep whenever it’s 
ready for you to scan a line. 
After a line has been success- 
fully read, you’ll hear a lower 
beep. A “blip-bloop” sound 
prompts you to turn your 
attention to the screen for a 
message. You’ll hear this when 
you accidentally scan a line 
out of sequence. 

After reading the first line, 
you continue scanning with 


the second line. Remember to 
wait for a high beep before 
scanning and then listen for 
a low beep to indicate a suc- 
cessful read. 

Once the last line of the 
listing has been scanned, 
BAREAD will return control to 
the Tandy 100/200 menu 
screen. Note that the program 
you just scanned is now in the 
directory with a . DO extension. 

The final step is to convert 
the .do text file to a normal 
basic program. This is done 
quite simply by going to basic 
and loading the file with a 
command such as lord"TEST 
-DO" (if the program name 
were TEST). The program will 
load into basic and will be 
ready to run. To save the 
program in basic’s com- 
pressed format (.br exten- 
sion), you’d type SRVE"TEST" 
(if the program were named 
test). You may then kill the 
.do file with kill "test. do". 


BAREAD 2.1 

1(2(2J2 ' *** Initialize *** 

1(21(2 ON ERROR GOTO 1(24(2 
1(22(2 CLEAR 1(2(2J2 : MAXFILES=2 
1(23(2 GOTO 1(25(2 

1(24(2 IF ERR=5 THEN RESUME NEXT 
1(25(2 ON ERROR GOTO (2 
1(26(2 RUNM "B30F9" 

1(27(2 OPEN "WAND:" FOR INPUT AS #1 
1(28(2 UC%— 1 

1(29(2 PC$="(2123456789ABCDEFGHIJKLMNOPQRST 
UVWXYZabcdef ghi j klmnopqrstuvwxyz - $+" 


11(2(2 DIM RW$ (36) 

111(2 ER$(l)'="You must scan line 1 first! 

It 

112(2 ER$(2)="You’ ve SKIPPED a line! M 
113(2 ER$(3)="You , ve ALREADY SCANNED this 
line ! 11 

114(2 ER$(4) = M Code not PCM2/39 format!' 1 
1150 ER$ (5)="Command not applicable here 
! " 

116(2 ER$(6)="You cannot skip this line!" 
117(2 ER$ (7)= s "Selected resume file not in 
computer ! " 

118(2 ' *** Read Reserved Words List *** 
119(2 DATA BEEP, CLEAR, CLOSE, DATA, DEFDBL,D 
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EFINT , DEFNG , DEFSTR , ELSE , GOSUB , GOTO 
1200 DATA INKEY$, INPUT, INSTR( , LCOPY , LEFT 
$( .LINE ( , LOADM , LPRINT , USING, MAXFILES 
1210 DATA MID$( .NEXT .PEEK .POKE, POWER , PRE 
SET ( , PRINT , READ , RESTORE , RETURN , RIGHT$ ( 
1220 DATA SOUND, SPACE$( ,STRING$( , THEN 
1230 FOR I%=1 TO 3 6 : READ RW$(I%) :NEXT 1% 
1240 ' *** Procedure Begins Here *** 

1250 CLS : PRINT@44 , "PCM Bar Code Program 
Reader v2.1" 

1260 LINE(20,4)-(219,18) ,1,B: LINE (22,6)- 
(217 ,16) , 1 , B 
1270 NN%-1 

1280 GOSUB 1660: IF ER%>0 THEN GOSUB 1620 
:GOTO 1280 

1290 IF LL%=0 AND INSTR("YN" , IL$)>0 THEN 
ER%=5: GOSUB 1620: GOTO 1280 
1300 IF LL%=0 THEN ON INSTR( "ALSR" , IL$) 
GOTO 1820,1890,1980,2050 
1310 IF LL%=1295 THEN 1350 
1320 IF LL%ONN% AND NN%=1 THEN ER%=l:GO 
SUB 1620: GOTO 1280 

1330 IF LL%<NN% THEN ER%=3: GOSUB 1620: GO 
TO 1280 

1340 IF LL%>NN% AND NN%>1 THEN ER%=2:GOS 

UB 1620: GOTO 1280 

1350 IL$=RIGHT$ ( IL$ , 19 ) 

1360 IF LL%=1 AND NN%>0 THEN GOSUB 1780 
1370 CL$=CL$+IL$ 

1380 FOR I%=1 TO LEN(CL$) 

1390 CH$=MID$ (CL$ , 1% , 1) 

1400 IF CH$="%" THEN GOSUB 1510: IF NL 

% THEN 1470 ELSE GOTO 1440 

1410 IF CH$="/" THEN GOSUB 1550: IF NL 

% THEN 1470 ELSE GOTO 1440 

1420 IF CH$=" . " THEN UC%=NOT(UC%) : GOT 

0 1450 

1430 IF CH$=>" A" AND CH$<="Z" AND NOT 
(UC%) THEN CH$=CHR$ ( ASC (CH$ ) +3 2 ) 

1440 XX$=XX$+CH$ : IF RIGHT$ (XX$ , 1)=CHR 
$(13) THEN PRINT#2 ,XX$ ; :XX$=" " :UC%=- 1 
1450 NEXT 1% 

1460 CL$=" " 

1470 PRINT@200 , SPACE$ (80) ; 

1480 IF LL%Ol295 THEN NN%=LL%+1 : GOTO 12 
80 

1490 1 *** Done *** 

1500 CLOSErCALL 61807! :CLEAR 500,HIMEM:M 
ENU 

1510 ' *** Decode Reserved Word *** 

1520 NL%=0 : IF I%>LEN(CL$) -1 THEN NL%— 1: 
CL$="%" :GOTO 1540 

1530 I%=I%+1 : CH$=RW$ (INSTR(PC$ ,MID$(CL$ , 

I%,D)) 

1540 RETURN 

1550 ' *** Decode Hex and Control Charac 
ters *** 

1560 NL%=0 : IF I%>LEN(CL$) -1 THEN NL%=-1: 


CL$="/" : GOTO 1610 

1570 I%=I%+1 : IF INSTR( "/% . " ,MID$ (CL$ , 1% , 
1))>0 THEN CH$=MID$ (CL$ , 1% , 1) : GOTO 1610 
1580 IF I%>LEN(CL$) -1 THEN NL%=- 1 : CL$=RI 
GHT$ ( CL$ , 2 ) : GOTO 1610 

1590 HX$=MID$ (CL$ , 1% , 2) : CH$=CHR$ ( (INSTR( 
"0123456789ABCDEF" , LEFT$ (HX$ , 1) ) -1)*16+I 
NSTR( "0123456789ABCDEF" , RIGHT$ (HX$ , 1) ) -1 
) 

1600 I%=I%+1 
1610 RETURN 

1620 1 *** Error Codes *** 

1630 SOUND 5000 , 10 : SOUND 8000 , 10 : SOUND 5 
000,10 

1640 PRINT@220- . 5*LEN(ER$(ER%) ) ,ER$(ER%) 
1650 RETURN 

1660 ' *** Get Code Line *** 

1670 PRINT0173 , " " ; : PRINT USING "Scan lin 
e ###" ;NN% 

1680 IF NN%=-1 THEN PRINT@173 , "Scan any 

line": GOTO 1700 

1690 SOUND 500,5 

1700 INPUT#1 , IL$ : ER%=0 

1710 FOR I%=1 TO LEN ( IL$ ) 

1720 IF MID$ (IL$ , 1% , 1)=" ! " THEN MID$(IL$ 

T4 1 W " 

1730 NEXT 1% 

1740 IF LEN(IL$)<>1 AND LEN(IL$)021 THE 
N ER%=4: RETURN 

1750 IF LEN(IL$)=1 THEN LL%=0 : RETURN 
1760 LL$=LEFT$ ( IL$ , 2 ) :LL%=(INSTR( "012345 
6789ABCDEFGHIJKLMNOPQRSTUWXYZ" , LEFT$ (LL 
$ , 1) ) -1)*36+INSTR( "0123456789ABCDEFGHIJK 
LMNOPQRSTUVWXYZ " , RIGHT$ ( LL$ , 1 ) ) - 1 
1770 RETURN 

1780 1 *** Open Program File 

1790 PN$=LEFT$ (IL$ , 6) : IL$=RIGHT$ (IL$ , LEN 

(IL$) -6) 

1800 OPEN PN$ FOR OUTPUT AS #2 

1810 RETURN 

1820 1 *** Abort *** 

1830 BEEP: BEEP: BEEP 

1840 PRINT0209 , "ABORT ! Are you sure?"; 
1850 INPUT#1 , AN$ 

1860 IF INSTR("YN" ,AN$)=0 THEN BEEP : PRIN 
T@251 , "Scan 'YES' or 'NO'" : GOTO 1850 
1870 PRINT@200,SPACE$(80) ; 

1880 IF AN$="Y" THEN CLOSE: KILL PN$+".DO 
" : GOTO 1490 ELSE GOTO 1280 
1890 1 *** Skip Line *** 

1900 IF NN%=1 THEN ER%=6: GOSUB 1620: GOTO 
1280 

1910 BEEP: BEEP: BEEP 

1920 PRINT@210 , "SKIP ! Are you sure?" 
1930 INPUT#1 , AN$ 

1940 IF INSTR("YN" ,AN$)=0 THEN BEEP: PRIN 
T@251 , "Scan 'YES' or ’NO"’: GOTO 1930 
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195(21 PRINT@200,SPACE$(80) ; 

196(3 IF AN$="Y" THEN NN%=NN%+1 

197(3 GOTO 128(3 

198(3 ' *** Stop & Save *** 

199(3 BEEP: BEEP: BEEP 

2(3(3(3 PRINT@207 , "STOP & SAVE! Are you sur 
e? " ; 

2(31(3 INPUT#1 , AN$ 

2(32(3 IF INSTRC’YN" ,AN$)=0 THEN BEEP : PR1N 
T@251 , "Scan ’YES’ or ’NO"’: GOTO 2(31(3 
2030 PRINT@200, SPACE$(80) ; 

2(34(3 IF AN$-"Y" THEN 149(3 ELSE GOTO 128(3 
2(35(3 ' *** Resume *** 

2(36(3 IF NN%Ol THEN ER%=5:G0SUB 162(3: GOT 


0 128(3 

2(37(3 PRINT@254 , "Resume Mode"; 

2(38(3 NN%=1 : GOSUB 166(3 

2090 IF LL%=(3 THEN ER%=5 ELSE IF LL%Ol 
THEN ER%=1 

21(3(3 IF ER%>(3 THEN GOSUB 162(3: GOTO 2(36(3 
211^1 PN$=MID$ ( IL$ ,3,6) 

2120 ON ERROR GOTO 2140 

2130 OPEN PN$ FOR INPUT AS #2:GOTO 2170 

2140 RESUME 2150 

2150 CLOSE #2 

2160 ER%=7: GOSUB 1620: GOTO 1270 

2170 CLOSE #2: OPEN PN$ FOR APPEND AS #2 

2180 NN%=- 1 : GOTO 1280 
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plus powerful Nicad 
battery pack that gives 
30 hours of power 
to your Model 100 


Now you can access LUCID, DISK + , 
WRITE ROM, RAM + and others 
instantly. 

The 6 ROM BANK plus battery pack lets 
you have the ultimate Model 100 system. 
When you get your unit just press in up 
to 6 ROMS into the sockets then push in 
a simple plug into your Model 100’s ROM 
socket. The ROM bank has two posts on 
either end that insert into the two little 
holes on the underside of your Model 100. 

The ROM bank props up the Model 100 at 
the same angle and height as those 
little legs you’ve seen. The ROM BANK 
itself is only about IV 2 ” deep and it runs 
the width of your Model 100. It only weighs 
one pound. It not only installs instantly, 
but it pops free in a second if you need 
everything to lie flat in a briefcase. 


Change from ROM to ROM with the 
touch of a thumb switch. 

You can go from LUCID to WRITE to 
DISK 4 - to any other ROMS just by turn- 
ing the thumb switch at the side of the 
ROM bank. The 6 ROM BANK is a sturdy 
well built construction that looks like it is 
a part of your Model 100. 

What is also fantastic is that the ROM 
bank has a powerful NICAD battery and 
recharger built right in. This power source 
supplies up to 30 hours of life to your 
Model 100 with just 6 hours of recharge. 
What’s nice is that it recharges right from 
your Model 100’s power adapter. This is 
a quick charge system and if you need 
power in a hurry, you can get 6 hours of 
life for your Model 100 by just charging for 
an hour and half. 


RDRTABLE GOMRJTER OORT ORQJP 

1 1035 Harry Hines Blvd. No. 207, Dallas, Tx. 75229 

VISA / MASTER CARD / AM. EXP. / C O D. 


Suddenly, the Model 100 is a very 
powerful computer. 

If you have the HOLMES portable disk 
drive with its powerful bundled database 
software package or the CRYPTRONICS 
128K RAM expansion along with LUCID, 
WRITE ROM and DISK+ in the 6 ROM 
bank with its rapid rechargable NICAD 
power source, you have the ultimate port- 
able system. It’s all available only from 
PCSG. 

As usual we don’t want you to take our 
word for it. The 6 ROM BANK is sold on 
a 30 day trial. If you are not satisfied 
simply return within thirty days for a full 
refund. MC, VISA, AM. EX. or C.O.D. 

1 - 214 - 351-0564 





All on one ROM. Truly the finest four 


programs 

available for the Model 100 — guaranteed. 
Try it for 30 days. If you aren’t blown away by the 


excellence return it for a full refund, 


The four best programs for the Model 
100 all on one ROM. 32K of power with- 
out using any RAM for program stor- 
age. This is the PCSG Snap-In ROM 
that just presses easily into the little 
ROM socket in the compartment on the 
back. You access the four right from the 
main menu like built-ins. 

Write ROM — the definitive word 
processor for the Model 100. Function 
key formatting or dot commands. 
Search and replace. Library feature — 
inserts words, phrases or whole docu- 
ments into text from just a code. MAP 
lets you see a picture of your document. 
In all there are 60 features and func- 
tions. No one can claim faster operation. 
FORM lets you create interactive forms 
with on-screen prompts that you can 
answer from the keyboard. Nothing else 
for the Model 100 compares with the 
features of Write ROM. Exactly the 
same as the Write ROM sold as a single 
program. Infoworld says it “makes the 
Model 100 a viable writing unit . . . sur- 


passed our highest expectations for 
quality and clarity.” 

Lucid Spreadsheet: This is the one 
PICO magazine says “blows Multiplan 
right out of the socket” and Infoworld 
performance rated as “excellent” and 
said “makes the Model 100 compute. ” 
Gives you features you cannot get with 
Lotus 123. Lets you build spreadsheets 
in your Model 100 that would consume 
140-150K on a desktop. Program gener- 
ating capability with no programming 
knowledge required. Variable column 
widths. Includes find and sort with func- 
tion key control. It’s fast, recalculates 
like lightning. No feature has been taken 
from the original, only new ones added. 

Database: This is a relational data 
base like no other. You can do every- 
thing from mailing lists to invoices. No 
complicated pseudo-coding, you create 
input screens as simply as typing into 
TEXT. You are not limited by size; you 
can have as large an input screen as you 
wish. Prints out reports or forms, get- 
ting information from as many files as 


you like. Complete math between fields. 
Total interface with Lucid worksheets. 

Outliner: Does everything that Think- 
tank does on a PC but a whole lot better. 
Includes a Sort for your headlines. Lets 
you have headlines of up to 240 charac- 
ters. Has cloning, hoisting and sideways 
scroll up to 250 characters. Like Lucid, 
this one sets a new standard for outlin- 
ers. This is the way to plan and organize 
your projects. 

Present Lucid and Write ROM 
owners can upgrade for $100. If you 
have both it’s $75. 

As usual PCSG sells the Super ROM 
on a thirty day guarantee. If for any 
reason you are not satisfied, simply 
return it for a full refund. 

We are excited about this product. 
Super ROM gives the Model 100 the 
true power of a desktop. No other multi- 
program ROM has software that com- 
pares. But don’t take our word for it. We 
invite you to make that comparison 
yourself. Priced at $199.95 on Snap-In 
ROM. 

Got stuck with somebody else’s multi-ROM? 

We’ll upgrade it for $100. 


11035 Harry Hines Blvd., #206, Dallas, TX 75229 

MC, Visa, American Express, Check, or C.O.D. 



